{- | 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 , notebookEnablePopup , setNotebookEnablePopup , -- ** GroupName NotebookGroupNamePropertyInfo , clearNotebookGroupName , constructNotebookGroupName , getNotebookGroupName , notebookGroupName , setNotebookGroupName , -- ** Page NotebookPagePropertyInfo , constructNotebookPage , getNotebookPage , notebookPage , setNotebookPage , -- ** Scrollable NotebookScrollablePropertyInfo , constructNotebookScrollable , getNotebookScrollable , notebookScrollable , setNotebookScrollable , -- ** ShowBorder NotebookShowBorderPropertyInfo , constructNotebookShowBorder , getNotebookShowBorder , notebookShowBorder , setNotebookShowBorder , -- ** ShowTabs NotebookShowTabsPropertyInfo , constructNotebookShowTabs , getNotebookShowTabs , notebookShowTabs , setNotebookShowTabs , -- ** TabPos NotebookTabPosPropertyInfo , constructNotebookTabPos , getNotebookTabPos , notebookTabPos , 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 Data.GI.Base.ShortPrelude import qualified Data.GI.Base.Attributes as GI.Attributes 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] -- Nullable: (Nothing,Nothing) 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 attrClear _ = undefined -- VVV Prop "group-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just True) getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text getNotebookGroupName obj = liftIO $ checkUnexpectedNothing "getNotebookGroupName" $ getObjectPropertyString obj "group-name" setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" (Just val) constructNotebookGroupName :: T.Text -> IO ([Char], GValue) constructNotebookGroupName val = constructObjectPropertyString "group-name" (Just val) clearNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m () clearNotebookGroupName obj = liftIO $ setObjectPropertyString obj "group-name" (Nothing :: Maybe T.Text) data NotebookGroupNamePropertyInfo instance AttrInfo NotebookGroupNamePropertyInfo where type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] 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 attrClear _ = clearNotebookGroupName -- VVV Prop "page" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 getNotebookPage obj = liftIO $ getObjectPropertyInt32 obj "page" setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () setNotebookPage obj val = liftIO $ setObjectPropertyInt32 obj "page" val constructNotebookPage :: Int32 -> IO ([Char], GValue) constructNotebookPage val = constructObjectPropertyInt32 "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 attrClear _ = undefined -- VVV Prop "scrollable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) 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 attrClear _ = undefined -- VVV Prop "show-border" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) 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 attrClear _ = undefined -- VVV Prop "show-tabs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) 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 attrClear _ = undefined -- VVV Prop "tab-pos" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) 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 attrClear _ = undefined 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, *)]) notebookEnablePopup :: AttrLabelProxy "enablePopup" notebookEnablePopup = AttrLabelProxy notebookGroupName :: AttrLabelProxy "groupName" notebookGroupName = AttrLabelProxy notebookPage :: AttrLabelProxy "page" notebookPage = AttrLabelProxy notebookScrollable :: AttrLabelProxy "scrollable" notebookScrollable = AttrLabelProxy notebookShowBorder :: AttrLabelProxy "showBorder" notebookShowBorder = AttrLabelProxy notebookShowTabs :: AttrLabelProxy "showTabs" notebookShowTabs = AttrLabelProxy notebookTabPos :: AttrLabelProxy "tabPos" notebookTabPos = AttrLabelProxy 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 : Just (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 : Just (TBasicType TInt) -- 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 : Just (TBasicType TInt) -- 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 : Nothing -- 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 : Just (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 : Just (TBasicType TInt) -- 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 : Just (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 : Just (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 : Just (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 : Just (TBasicType TInt) -- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (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 TInt 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- 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 TInt 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- 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 TInt 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 : Nothing -- 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 : Just (TBasicType TInt) -- 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 : Nothing -- 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 : Nothing -- 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 : Just (TBasicType TInt) -- 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 : Just (TBasicType TInt) -- 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 : Nothing -- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- 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 TInt 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- 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 TInt 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 : Nothing -- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- 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 TInt 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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 : Nothing -- 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