{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) The 'GI.Gtk.Objects.Notebook.Notebook' widget is a 'GI.Gtk.Objects.Container.Container' whose children are pages that can be switched between using tab labels along one edge. There are many configuration options for GtkNotebook. Among other things, you can choose on which edge the tabs appear (see 'GI.Gtk.Objects.Notebook.notebookSetTabPos'), whether, if there are too many tabs to fit the notebook should be made bigger or scrolling arrows added (see 'GI.Gtk.Objects.Notebook.notebookSetScrollable'), and whether there will be a popup menu allowing the users to switch pages. (see 'GI.Gtk.Objects.Notebook.notebookPopupEnable', 'GI.Gtk.Objects.Notebook.notebookPopupDisable') = GtkNotebook as GtkBuildable The GtkNotebook implementation of the 'GI.Gtk.Interfaces.Buildable.Buildable' interface supports placing children into tabs by specifying “tab” as the “type” attribute of a \ element. Note that the content of the tab must be created before the tab can be filled. A tab child can be specified without specifying a \ type attribute. To add a child widget in the notebooks action area, specify \"action-start\" or “action-end” as the “type” attribute of the \ element. An example of a UI definition fragment with GtkNotebook: > > > > > Content > > > > > Tab > > > = CSS nodes === /plain code/ > >notebook >├── header.top >│ ├── [] >│ ├── tabs >│ │ ├── [arrow] >│ │ ├── tab >│ │ │ ╰── >┊ ┊ ┊ >│ │ ├── tab[.reorderable-page] >│ │ │ ╰── >│ │ ╰── [arrow] >│ ╰── [] >│ >╰── stack > ├── > ┊ > ╰── GtkNotebook has a main CSS node with name notebook, a subnode with name header and below that a subnode with name tabs which contains one subnode per tab with name tab. If action widgets are present, their CSS nodes are placed next to the tabs node. If the notebook is scrollable, CSS nodes with name arrow are placed as first and last child of the tabs node. The main node gets the .frame style class when the notebook has a border (see 'GI.Gtk.Objects.Notebook.notebookSetShowBorder'). The header node gets one of the style class .top, .bottom, .left or .right, depending on where the tabs are placed. For reorderable pages, the tab node gets the .reorderable-page class. A tab node gets the .dnd style class while it is moved with drag-and-drop. The nodes are always arranged from left-to-right, regarldess of text direction. -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gtk.Objects.Notebook ( -- * Exported types Notebook(..) , IsNotebook , toNotebook , noNotebook , -- * Methods -- ** appendPage #method:appendPage# #if ENABLE_OVERLOADING NotebookAppendPageMethodInfo , #endif notebookAppendPage , -- ** appendPageMenu #method:appendPageMenu# #if ENABLE_OVERLOADING NotebookAppendPageMenuMethodInfo , #endif notebookAppendPageMenu , -- ** detachTab #method:detachTab# #if ENABLE_OVERLOADING NotebookDetachTabMethodInfo , #endif notebookDetachTab , -- ** getActionWidget #method:getActionWidget# #if ENABLE_OVERLOADING NotebookGetActionWidgetMethodInfo , #endif notebookGetActionWidget , -- ** getCurrentPage #method:getCurrentPage# #if ENABLE_OVERLOADING NotebookGetCurrentPageMethodInfo , #endif notebookGetCurrentPage , -- ** getGroupName #method:getGroupName# #if ENABLE_OVERLOADING NotebookGetGroupNameMethodInfo , #endif notebookGetGroupName , -- ** getMenuLabel #method:getMenuLabel# #if ENABLE_OVERLOADING NotebookGetMenuLabelMethodInfo , #endif notebookGetMenuLabel , -- ** getMenuLabelText #method:getMenuLabelText# #if ENABLE_OVERLOADING NotebookGetMenuLabelTextMethodInfo , #endif notebookGetMenuLabelText , -- ** getNPages #method:getNPages# #if ENABLE_OVERLOADING NotebookGetNPagesMethodInfo , #endif notebookGetNPages , -- ** getNthPage #method:getNthPage# #if ENABLE_OVERLOADING NotebookGetNthPageMethodInfo , #endif notebookGetNthPage , -- ** getScrollable #method:getScrollable# #if ENABLE_OVERLOADING NotebookGetScrollableMethodInfo , #endif notebookGetScrollable , -- ** getShowBorder #method:getShowBorder# #if ENABLE_OVERLOADING NotebookGetShowBorderMethodInfo , #endif notebookGetShowBorder , -- ** getShowTabs #method:getShowTabs# #if ENABLE_OVERLOADING NotebookGetShowTabsMethodInfo , #endif notebookGetShowTabs , -- ** getTabDetachable #method:getTabDetachable# #if ENABLE_OVERLOADING NotebookGetTabDetachableMethodInfo , #endif notebookGetTabDetachable , -- ** getTabHborder #method:getTabHborder# #if ENABLE_OVERLOADING NotebookGetTabHborderMethodInfo , #endif notebookGetTabHborder , -- ** getTabLabel #method:getTabLabel# #if ENABLE_OVERLOADING NotebookGetTabLabelMethodInfo , #endif notebookGetTabLabel , -- ** getTabLabelText #method:getTabLabelText# #if ENABLE_OVERLOADING NotebookGetTabLabelTextMethodInfo , #endif notebookGetTabLabelText , -- ** getTabPos #method:getTabPos# #if ENABLE_OVERLOADING NotebookGetTabPosMethodInfo , #endif notebookGetTabPos , -- ** getTabReorderable #method:getTabReorderable# #if ENABLE_OVERLOADING NotebookGetTabReorderableMethodInfo , #endif notebookGetTabReorderable , -- ** getTabVborder #method:getTabVborder# #if ENABLE_OVERLOADING NotebookGetTabVborderMethodInfo , #endif notebookGetTabVborder , -- ** insertPage #method:insertPage# #if ENABLE_OVERLOADING NotebookInsertPageMethodInfo , #endif notebookInsertPage , -- ** insertPageMenu #method:insertPageMenu# #if ENABLE_OVERLOADING NotebookInsertPageMenuMethodInfo , #endif notebookInsertPageMenu , -- ** new #method:new# notebookNew , -- ** nextPage #method:nextPage# #if ENABLE_OVERLOADING NotebookNextPageMethodInfo , #endif notebookNextPage , -- ** pageNum #method:pageNum# #if ENABLE_OVERLOADING NotebookPageNumMethodInfo , #endif notebookPageNum , -- ** popupDisable #method:popupDisable# #if ENABLE_OVERLOADING NotebookPopupDisableMethodInfo , #endif notebookPopupDisable , -- ** popupEnable #method:popupEnable# #if ENABLE_OVERLOADING NotebookPopupEnableMethodInfo , #endif notebookPopupEnable , -- ** prependPage #method:prependPage# #if ENABLE_OVERLOADING NotebookPrependPageMethodInfo , #endif notebookPrependPage , -- ** prependPageMenu #method:prependPageMenu# #if ENABLE_OVERLOADING NotebookPrependPageMenuMethodInfo , #endif notebookPrependPageMenu , -- ** prevPage #method:prevPage# #if ENABLE_OVERLOADING NotebookPrevPageMethodInfo , #endif notebookPrevPage , -- ** removePage #method:removePage# #if ENABLE_OVERLOADING NotebookRemovePageMethodInfo , #endif notebookRemovePage , -- ** reorderChild #method:reorderChild# #if ENABLE_OVERLOADING NotebookReorderChildMethodInfo , #endif notebookReorderChild , -- ** setActionWidget #method:setActionWidget# #if ENABLE_OVERLOADING NotebookSetActionWidgetMethodInfo , #endif notebookSetActionWidget , -- ** setCurrentPage #method:setCurrentPage# #if ENABLE_OVERLOADING NotebookSetCurrentPageMethodInfo , #endif notebookSetCurrentPage , -- ** setGroupName #method:setGroupName# #if ENABLE_OVERLOADING NotebookSetGroupNameMethodInfo , #endif notebookSetGroupName , -- ** setMenuLabel #method:setMenuLabel# #if ENABLE_OVERLOADING NotebookSetMenuLabelMethodInfo , #endif notebookSetMenuLabel , -- ** setMenuLabelText #method:setMenuLabelText# #if ENABLE_OVERLOADING NotebookSetMenuLabelTextMethodInfo , #endif notebookSetMenuLabelText , -- ** setScrollable #method:setScrollable# #if ENABLE_OVERLOADING NotebookSetScrollableMethodInfo , #endif notebookSetScrollable , -- ** setShowBorder #method:setShowBorder# #if ENABLE_OVERLOADING NotebookSetShowBorderMethodInfo , #endif notebookSetShowBorder , -- ** setShowTabs #method:setShowTabs# #if ENABLE_OVERLOADING NotebookSetShowTabsMethodInfo , #endif notebookSetShowTabs , -- ** setTabDetachable #method:setTabDetachable# #if ENABLE_OVERLOADING NotebookSetTabDetachableMethodInfo , #endif notebookSetTabDetachable , -- ** setTabLabel #method:setTabLabel# #if ENABLE_OVERLOADING NotebookSetTabLabelMethodInfo , #endif notebookSetTabLabel , -- ** setTabLabelText #method:setTabLabelText# #if ENABLE_OVERLOADING NotebookSetTabLabelTextMethodInfo , #endif notebookSetTabLabelText , -- ** setTabPos #method:setTabPos# #if ENABLE_OVERLOADING NotebookSetTabPosMethodInfo , #endif notebookSetTabPos , -- ** setTabReorderable #method:setTabReorderable# #if ENABLE_OVERLOADING NotebookSetTabReorderableMethodInfo , #endif notebookSetTabReorderable , -- * Properties -- ** enablePopup #attr:enablePopup# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookEnablePopupPropertyInfo , #endif constructNotebookEnablePopup , getNotebookEnablePopup , #if ENABLE_OVERLOADING notebookEnablePopup , #endif setNotebookEnablePopup , -- ** groupName #attr:groupName# {- | Group name for tab drag and drop. /Since: 2.24/ -} #if ENABLE_OVERLOADING NotebookGroupNamePropertyInfo , #endif clearNotebookGroupName , constructNotebookGroupName , getNotebookGroupName , #if ENABLE_OVERLOADING notebookGroupName , #endif setNotebookGroupName , -- ** page #attr:page# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookPagePropertyInfo , #endif constructNotebookPage , getNotebookPage , #if ENABLE_OVERLOADING notebookPage , #endif setNotebookPage , -- ** scrollable #attr:scrollable# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookScrollablePropertyInfo , #endif constructNotebookScrollable , getNotebookScrollable , #if ENABLE_OVERLOADING notebookScrollable , #endif setNotebookScrollable , -- ** showBorder #attr:showBorder# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookShowBorderPropertyInfo , #endif constructNotebookShowBorder , getNotebookShowBorder , #if ENABLE_OVERLOADING notebookShowBorder , #endif setNotebookShowBorder , -- ** showTabs #attr:showTabs# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookShowTabsPropertyInfo , #endif constructNotebookShowTabs , getNotebookShowTabs , #if ENABLE_OVERLOADING notebookShowTabs , #endif setNotebookShowTabs , -- ** tabPos #attr:tabPos# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING NotebookTabPosPropertyInfo , #endif constructNotebookTabPos , getNotebookTabPos , #if ENABLE_OVERLOADING notebookTabPos , #endif setNotebookTabPos , -- * Signals -- ** changeCurrentPage #signal:changeCurrentPage# C_NotebookChangeCurrentPageCallback , NotebookChangeCurrentPageCallback , #if ENABLE_OVERLOADING NotebookChangeCurrentPageSignalInfo , #endif afterNotebookChangeCurrentPage , genClosure_NotebookChangeCurrentPage , mk_NotebookChangeCurrentPageCallback , noNotebookChangeCurrentPageCallback , onNotebookChangeCurrentPage , wrap_NotebookChangeCurrentPageCallback , -- ** createWindow #signal:createWindow# C_NotebookCreateWindowCallback , NotebookCreateWindowCallback , #if ENABLE_OVERLOADING NotebookCreateWindowSignalInfo , #endif afterNotebookCreateWindow , genClosure_NotebookCreateWindow , mk_NotebookCreateWindowCallback , noNotebookCreateWindowCallback , onNotebookCreateWindow , wrap_NotebookCreateWindowCallback , -- ** focusTab #signal:focusTab# C_NotebookFocusTabCallback , NotebookFocusTabCallback , #if ENABLE_OVERLOADING NotebookFocusTabSignalInfo , #endif afterNotebookFocusTab , genClosure_NotebookFocusTab , mk_NotebookFocusTabCallback , noNotebookFocusTabCallback , onNotebookFocusTab , wrap_NotebookFocusTabCallback , -- ** moveFocusOut #signal:moveFocusOut# C_NotebookMoveFocusOutCallback , NotebookMoveFocusOutCallback , #if ENABLE_OVERLOADING NotebookMoveFocusOutSignalInfo , #endif afterNotebookMoveFocusOut , genClosure_NotebookMoveFocusOut , mk_NotebookMoveFocusOutCallback , noNotebookMoveFocusOutCallback , onNotebookMoveFocusOut , wrap_NotebookMoveFocusOutCallback , -- ** pageAdded #signal:pageAdded# C_NotebookPageAddedCallback , NotebookPageAddedCallback , #if ENABLE_OVERLOADING NotebookPageAddedSignalInfo , #endif afterNotebookPageAdded , genClosure_NotebookPageAdded , mk_NotebookPageAddedCallback , noNotebookPageAddedCallback , onNotebookPageAdded , wrap_NotebookPageAddedCallback , -- ** pageRemoved #signal:pageRemoved# C_NotebookPageRemovedCallback , NotebookPageRemovedCallback , #if ENABLE_OVERLOADING NotebookPageRemovedSignalInfo , #endif afterNotebookPageRemoved , genClosure_NotebookPageRemoved , mk_NotebookPageRemovedCallback , noNotebookPageRemovedCallback , onNotebookPageRemoved , wrap_NotebookPageRemovedCallback , -- ** pageReordered #signal:pageReordered# C_NotebookPageReorderedCallback , NotebookPageReorderedCallback , #if ENABLE_OVERLOADING NotebookPageReorderedSignalInfo , #endif afterNotebookPageReordered , genClosure_NotebookPageReordered , mk_NotebookPageReorderedCallback , noNotebookPageReorderedCallback , onNotebookPageReordered , wrap_NotebookPageReorderedCallback , -- ** reorderTab #signal:reorderTab# C_NotebookReorderTabCallback , NotebookReorderTabCallback , #if ENABLE_OVERLOADING NotebookReorderTabSignalInfo , #endif afterNotebookReorderTab , genClosure_NotebookReorderTab , mk_NotebookReorderTabCallback , noNotebookReorderTabCallback , onNotebookReorderTab , wrap_NotebookReorderTabCallback , -- ** selectPage #signal:selectPage# C_NotebookSelectPageCallback , NotebookSelectPageCallback , #if ENABLE_OVERLOADING NotebookSelectPageSignalInfo , #endif afterNotebookSelectPage , genClosure_NotebookSelectPage , mk_NotebookSelectPageCallback , noNotebookSelectPageCallback , onNotebookSelectPage , wrap_NotebookSelectPageCallback , -- ** switchPage #signal:switchPage# C_NotebookSwitchPageCallback , NotebookSwitchPageCallback , #if ENABLE_OVERLOADING NotebookSwitchPageSignalInfo , #endif afterNotebookSwitchPage , genClosure_NotebookSwitchPage , mk_NotebookSwitchPageCallback , noNotebookSwitchPageCallback , onNotebookSwitchPage , wrap_NotebookSwitchPageCallback , ) where import Data.GI.Base.ShortPrelude import qualified Data.GI.Base.ShortPrelude as SP import qualified Data.GI.Base.Overloading as O import qualified Prelude as P import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr import qualified Data.GI.Base.GClosure as B.GClosure import qualified Data.GI.Base.GError as B.GError import qualified Data.GI.Base.GVariant as B.GVariant import qualified Data.GI.Base.GValue as B.GValue import qualified Data.GI.Base.GParamSpec as B.GParamSpec import qualified Data.GI.Base.CallStack as B.CallStack import qualified Data.GI.Base.Properties as B.Properties import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import qualified Foreign.Ptr as FP import qualified GHC.OverloadedLabels as OL import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface import qualified GI.GObject.Objects.Object as GObject.Object import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget -- | Memory-managed wrapper type. newtype Notebook = Notebook (ManagedPtr Notebook) foreign import ccall "gtk_notebook_get_type" c_gtk_notebook_get_type :: IO GType instance GObject Notebook where gobjectType = c_gtk_notebook_get_type -- | Type class for types which can be safely cast to `Notebook`, for instance with `toNotebook`. class (GObject o, O.IsDescendantOf Notebook o) => IsNotebook o instance (GObject o, O.IsDescendantOf Notebook o) => IsNotebook o instance O.HasParentTypes Notebook type instance O.ParentTypes Notebook = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable] -- | Cast to `Notebook`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toNotebook :: (MonadIO m, IsNotebook o) => o -> m Notebook toNotebook = liftIO . unsafeCastTo Notebook -- | A convenience alias for `Nothing` :: `Maybe` `Notebook`. noNotebook :: Maybe Notebook noNotebook = Nothing #if ENABLE_OVERLOADING type family ResolveNotebookMethod (t :: Symbol) (o :: *) :: * where ResolveNotebookMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo ResolveNotebookMethod "add" o = Gtk.Container.ContainerAddMethodInfo ResolveNotebookMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo ResolveNotebookMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo ResolveNotebookMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo ResolveNotebookMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo ResolveNotebookMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo ResolveNotebookMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo ResolveNotebookMethod "appendPage" o = NotebookAppendPageMethodInfo ResolveNotebookMethod "appendPageMenu" o = NotebookAppendPageMenuMethodInfo ResolveNotebookMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveNotebookMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveNotebookMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo ResolveNotebookMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo ResolveNotebookMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo ResolveNotebookMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo ResolveNotebookMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo ResolveNotebookMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo ResolveNotebookMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo ResolveNotebookMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo ResolveNotebookMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo ResolveNotebookMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo ResolveNotebookMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo ResolveNotebookMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo ResolveNotebookMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo ResolveNotebookMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo ResolveNotebookMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo ResolveNotebookMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo ResolveNotebookMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo ResolveNotebookMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo ResolveNotebookMethod "detachTab" o = NotebookDetachTabMethodInfo ResolveNotebookMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo ResolveNotebookMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo ResolveNotebookMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo ResolveNotebookMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo ResolveNotebookMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo ResolveNotebookMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo ResolveNotebookMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo ResolveNotebookMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo ResolveNotebookMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo ResolveNotebookMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo ResolveNotebookMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo ResolveNotebookMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo ResolveNotebookMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo ResolveNotebookMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo ResolveNotebookMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo ResolveNotebookMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo ResolveNotebookMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo ResolveNotebookMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo ResolveNotebookMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo ResolveNotebookMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo ResolveNotebookMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo ResolveNotebookMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo ResolveNotebookMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo ResolveNotebookMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo ResolveNotebookMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo ResolveNotebookMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo ResolveNotebookMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo ResolveNotebookMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo ResolveNotebookMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo ResolveNotebookMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo ResolveNotebookMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo ResolveNotebookMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo ResolveNotebookMethod "event" o = Gtk.Widget.WidgetEventMethodInfo ResolveNotebookMethod "forall" o = Gtk.Container.ContainerForallMethodInfo ResolveNotebookMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveNotebookMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo ResolveNotebookMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo ResolveNotebookMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveNotebookMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveNotebookMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo ResolveNotebookMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo ResolveNotebookMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo ResolveNotebookMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo ResolveNotebookMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo ResolveNotebookMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo ResolveNotebookMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo ResolveNotebookMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo ResolveNotebookMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo ResolveNotebookMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo ResolveNotebookMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo ResolveNotebookMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo ResolveNotebookMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo ResolveNotebookMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo ResolveNotebookMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo ResolveNotebookMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo ResolveNotebookMethod "insertPage" o = NotebookInsertPageMethodInfo ResolveNotebookMethod "insertPageMenu" o = NotebookInsertPageMenuMethodInfo ResolveNotebookMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo ResolveNotebookMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo ResolveNotebookMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo ResolveNotebookMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo ResolveNotebookMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveNotebookMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo ResolveNotebookMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo ResolveNotebookMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo ResolveNotebookMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo ResolveNotebookMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo ResolveNotebookMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo ResolveNotebookMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo ResolveNotebookMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo ResolveNotebookMethod "map" o = Gtk.Widget.WidgetMapMethodInfo ResolveNotebookMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo ResolveNotebookMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo ResolveNotebookMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo ResolveNotebookMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo ResolveNotebookMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo ResolveNotebookMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo ResolveNotebookMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo ResolveNotebookMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo ResolveNotebookMethod "nextPage" o = NotebookNextPageMethodInfo ResolveNotebookMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveNotebookMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveNotebookMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo ResolveNotebookMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo ResolveNotebookMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo ResolveNotebookMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo ResolveNotebookMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo ResolveNotebookMethod "pageNum" o = NotebookPageNumMethodInfo ResolveNotebookMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo ResolveNotebookMethod "path" o = Gtk.Widget.WidgetPathMethodInfo ResolveNotebookMethod "popupDisable" o = NotebookPopupDisableMethodInfo ResolveNotebookMethod "popupEnable" o = NotebookPopupEnableMethodInfo ResolveNotebookMethod "prependPage" o = NotebookPrependPageMethodInfo ResolveNotebookMethod "prependPageMenu" o = NotebookPrependPageMenuMethodInfo ResolveNotebookMethod "prevPage" o = NotebookPrevPageMethodInfo ResolveNotebookMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo ResolveNotebookMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo ResolveNotebookMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo ResolveNotebookMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo ResolveNotebookMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo ResolveNotebookMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo ResolveNotebookMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo ResolveNotebookMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo ResolveNotebookMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo ResolveNotebookMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveNotebookMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveNotebookMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo ResolveNotebookMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo ResolveNotebookMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo ResolveNotebookMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo ResolveNotebookMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo ResolveNotebookMethod "removePage" o = NotebookRemovePageMethodInfo ResolveNotebookMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo ResolveNotebookMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo ResolveNotebookMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo ResolveNotebookMethod "reorderChild" o = NotebookReorderChildMethodInfo ResolveNotebookMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo ResolveNotebookMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo ResolveNotebookMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo ResolveNotebookMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo ResolveNotebookMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveNotebookMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo ResolveNotebookMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo ResolveNotebookMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo ResolveNotebookMethod "show" o = Gtk.Widget.WidgetShowMethodInfo ResolveNotebookMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo ResolveNotebookMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo ResolveNotebookMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo ResolveNotebookMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo ResolveNotebookMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo ResolveNotebookMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveNotebookMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveNotebookMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo ResolveNotebookMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo ResolveNotebookMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo ResolveNotebookMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveNotebookMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo ResolveNotebookMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo ResolveNotebookMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo ResolveNotebookMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo ResolveNotebookMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo ResolveNotebookMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveNotebookMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo ResolveNotebookMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo ResolveNotebookMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo ResolveNotebookMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveNotebookMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo ResolveNotebookMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo ResolveNotebookMethod "getActionWidget" o = NotebookGetActionWidgetMethodInfo ResolveNotebookMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo ResolveNotebookMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo ResolveNotebookMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo ResolveNotebookMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo ResolveNotebookMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo ResolveNotebookMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo ResolveNotebookMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo ResolveNotebookMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo ResolveNotebookMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo ResolveNotebookMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo ResolveNotebookMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo ResolveNotebookMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo ResolveNotebookMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo ResolveNotebookMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo ResolveNotebookMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo ResolveNotebookMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo ResolveNotebookMethod "getCurrentPage" o = NotebookGetCurrentPageMethodInfo ResolveNotebookMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveNotebookMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo ResolveNotebookMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo ResolveNotebookMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo ResolveNotebookMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo ResolveNotebookMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo ResolveNotebookMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo ResolveNotebookMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo ResolveNotebookMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo ResolveNotebookMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo ResolveNotebookMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo ResolveNotebookMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo ResolveNotebookMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo ResolveNotebookMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo ResolveNotebookMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo ResolveNotebookMethod "getGroupName" o = NotebookGetGroupNameMethodInfo ResolveNotebookMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo ResolveNotebookMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo ResolveNotebookMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo ResolveNotebookMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo ResolveNotebookMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo ResolveNotebookMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo ResolveNotebookMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo ResolveNotebookMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo ResolveNotebookMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo ResolveNotebookMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo ResolveNotebookMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo ResolveNotebookMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo ResolveNotebookMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo ResolveNotebookMethod "getMenuLabel" o = NotebookGetMenuLabelMethodInfo ResolveNotebookMethod "getMenuLabelText" o = NotebookGetMenuLabelTextMethodInfo ResolveNotebookMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo ResolveNotebookMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo ResolveNotebookMethod "getNPages" o = NotebookGetNPagesMethodInfo ResolveNotebookMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo ResolveNotebookMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo ResolveNotebookMethod "getNthPage" o = NotebookGetNthPageMethodInfo ResolveNotebookMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo ResolveNotebookMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo ResolveNotebookMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo ResolveNotebookMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo ResolveNotebookMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo ResolveNotebookMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo ResolveNotebookMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo ResolveNotebookMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo ResolveNotebookMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo ResolveNotebookMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo ResolveNotebookMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo ResolveNotebookMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo ResolveNotebookMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo ResolveNotebookMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveNotebookMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveNotebookMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo ResolveNotebookMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo ResolveNotebookMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo ResolveNotebookMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo ResolveNotebookMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo ResolveNotebookMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo ResolveNotebookMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo ResolveNotebookMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo ResolveNotebookMethod "getScrollable" o = NotebookGetScrollableMethodInfo ResolveNotebookMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo ResolveNotebookMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo ResolveNotebookMethod "getShowBorder" o = NotebookGetShowBorderMethodInfo ResolveNotebookMethod "getShowTabs" o = NotebookGetShowTabsMethodInfo ResolveNotebookMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo ResolveNotebookMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo ResolveNotebookMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo ResolveNotebookMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo ResolveNotebookMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo ResolveNotebookMethod "getSupportMultidevice" o = Gtk.Widget.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 = Gtk.Widget.WidgetGetTemplateChildMethodInfo ResolveNotebookMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo ResolveNotebookMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo ResolveNotebookMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo ResolveNotebookMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo ResolveNotebookMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo ResolveNotebookMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo ResolveNotebookMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo ResolveNotebookMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo ResolveNotebookMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo ResolveNotebookMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo ResolveNotebookMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo ResolveNotebookMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo ResolveNotebookMethod "setActionWidget" o = NotebookSetActionWidgetMethodInfo ResolveNotebookMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo ResolveNotebookMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo ResolveNotebookMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo ResolveNotebookMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo ResolveNotebookMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo ResolveNotebookMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo ResolveNotebookMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo ResolveNotebookMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo ResolveNotebookMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo ResolveNotebookMethod "setCurrentPage" o = NotebookSetCurrentPageMethodInfo ResolveNotebookMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveNotebookMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo ResolveNotebookMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo ResolveNotebookMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo ResolveNotebookMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo ResolveNotebookMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo ResolveNotebookMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo ResolveNotebookMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo ResolveNotebookMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo ResolveNotebookMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo ResolveNotebookMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo ResolveNotebookMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo ResolveNotebookMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo ResolveNotebookMethod "setGroupName" o = NotebookSetGroupNameMethodInfo ResolveNotebookMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo ResolveNotebookMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo ResolveNotebookMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo ResolveNotebookMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo ResolveNotebookMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo ResolveNotebookMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo ResolveNotebookMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo ResolveNotebookMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo ResolveNotebookMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo ResolveNotebookMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo ResolveNotebookMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo ResolveNotebookMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo ResolveNotebookMethod "setMenuLabel" o = NotebookSetMenuLabelMethodInfo ResolveNotebookMethod "setMenuLabelText" o = NotebookSetMenuLabelTextMethodInfo ResolveNotebookMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo ResolveNotebookMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo ResolveNotebookMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo ResolveNotebookMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo ResolveNotebookMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo ResolveNotebookMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveNotebookMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo ResolveNotebookMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo ResolveNotebookMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo ResolveNotebookMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo ResolveNotebookMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo ResolveNotebookMethod "setScrollable" o = NotebookSetScrollableMethodInfo ResolveNotebookMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo ResolveNotebookMethod "setShowBorder" o = NotebookSetShowBorderMethodInfo ResolveNotebookMethod "setShowTabs" o = NotebookSetShowTabsMethodInfo ResolveNotebookMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo ResolveNotebookMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo ResolveNotebookMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo ResolveNotebookMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo ResolveNotebookMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo ResolveNotebookMethod "setTabDetachable" o = NotebookSetTabDetachableMethodInfo ResolveNotebookMethod "setTabLabel" o = NotebookSetTabLabelMethodInfo ResolveNotebookMethod "setTabLabelText" o = NotebookSetTabLabelTextMethodInfo ResolveNotebookMethod "setTabPos" o = NotebookSetTabPosMethodInfo ResolveNotebookMethod "setTabReorderable" o = NotebookSetTabReorderableMethodInfo ResolveNotebookMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo ResolveNotebookMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo ResolveNotebookMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo ResolveNotebookMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo ResolveNotebookMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo ResolveNotebookMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo ResolveNotebookMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo ResolveNotebookMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo ResolveNotebookMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo ResolveNotebookMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveNotebookMethod t Notebook, O.MethodInfo info Notebook p) => OL.IsLabel t (Notebook -> p) where #if MIN_VERSION_base(4,10,0) fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- signal Notebook::change-current-page {- | /No description available in the introspection data./ -} type NotebookChangeCurrentPageCallback = Int32 -> IO Bool -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookChangeCurrentPageCallback`@. noNotebookChangeCurrentPageCallback :: Maybe NotebookChangeCurrentPageCallback noNotebookChangeCurrentPageCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookChangeCurrentPageCallback = Ptr () -> -- object Int32 -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_NotebookChangeCurrentPageCallback`. foreign import ccall "wrapper" mk_NotebookChangeCurrentPageCallback :: C_NotebookChangeCurrentPageCallback -> IO (FunPtr C_NotebookChangeCurrentPageCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookChangeCurrentPage :: MonadIO m => NotebookChangeCurrentPageCallback -> m (GClosure C_NotebookChangeCurrentPageCallback) genClosure_NotebookChangeCurrentPage cb = liftIO $ do let cb' = wrap_NotebookChangeCurrentPageCallback cb mk_NotebookChangeCurrentPageCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookChangeCurrentPageCallback` into a `C_NotebookChangeCurrentPageCallback`. wrap_NotebookChangeCurrentPageCallback :: NotebookChangeCurrentPageCallback -> C_NotebookChangeCurrentPageCallback wrap_NotebookChangeCurrentPageCallback _cb _ object _ = do result <- _cb object let result' = (fromIntegral . fromEnum) result return result' {- | Connect a signal handler for the “@change-current-page@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #changeCurrentPage callback @ -} onNotebookChangeCurrentPage :: (IsNotebook a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId onNotebookChangeCurrentPage obj cb = liftIO $ do let cb' = wrap_NotebookChangeCurrentPageCallback cb cb'' <- mk_NotebookChangeCurrentPageCallback cb' connectSignalFunPtr obj "change-current-page" cb'' SignalConnectBefore {- | Connect a signal handler for the “@change-current-page@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #changeCurrentPage callback @ -} afterNotebookChangeCurrentPage :: (IsNotebook a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId afterNotebookChangeCurrentPage obj cb = liftIO $ do let cb' = wrap_NotebookChangeCurrentPageCallback cb cb'' <- mk_NotebookChangeCurrentPageCallback cb' connectSignalFunPtr obj "change-current-page" cb'' SignalConnectAfter -- signal Notebook::create-window {- | The ::create-window signal is emitted when a detachable tab is dropped on the root window. A handler for this signal can create a window containing a notebook where the tab will be attached. It is also responsible for moving\/resizing the window and adding the necessary properties to the notebook (e.g. the 'GI.Gtk.Objects.Notebook.Notebook':@/group-name/@ ). /Since: 2.12/ -} type NotebookCreateWindowCallback = Gtk.Widget.Widget {- ^ /@page@/: the tab of /@notebook@/ that is being detached -} -> Int32 {- ^ /@x@/: the X coordinate where the drop happens -} -> Int32 {- ^ /@y@/: the Y coordinate where the drop happens -} -> IO Notebook {- ^ __Returns:__ a 'GI.Gtk.Objects.Notebook.Notebook' that /@page@/ should be added to, or 'Nothing'. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookCreateWindowCallback`@. noNotebookCreateWindowCallback :: Maybe NotebookCreateWindowCallback noNotebookCreateWindowCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookCreateWindowCallback = Ptr () -> -- object Ptr Gtk.Widget.Widget -> Int32 -> Int32 -> Ptr () -> -- user_data IO (Ptr Notebook) -- | Generate a function pointer callable from C code, from a `C_NotebookCreateWindowCallback`. foreign import ccall "wrapper" mk_NotebookCreateWindowCallback :: C_NotebookCreateWindowCallback -> IO (FunPtr C_NotebookCreateWindowCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookCreateWindow :: MonadIO m => NotebookCreateWindowCallback -> m (GClosure C_NotebookCreateWindowCallback) genClosure_NotebookCreateWindow cb = liftIO $ do let cb' = wrap_NotebookCreateWindowCallback cb mk_NotebookCreateWindowCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookCreateWindowCallback` into a `C_NotebookCreateWindowCallback`. wrap_NotebookCreateWindowCallback :: NotebookCreateWindowCallback -> C_NotebookCreateWindowCallback wrap_NotebookCreateWindowCallback _cb _ page x y _ = do page' <- (newObject Gtk.Widget.Widget) page result <- _cb page' x y result' <- unsafeManagedPtrCastPtr result return result' {- | Connect a signal handler for the “@create-window@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #createWindow callback @ -} onNotebookCreateWindow :: (IsNotebook a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId onNotebookCreateWindow obj cb = liftIO $ do let cb' = wrap_NotebookCreateWindowCallback cb cb'' <- mk_NotebookCreateWindowCallback cb' connectSignalFunPtr obj "create-window" cb'' SignalConnectBefore {- | Connect a signal handler for the “@create-window@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #createWindow callback @ -} afterNotebookCreateWindow :: (IsNotebook a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId afterNotebookCreateWindow obj cb = liftIO $ do let cb' = wrap_NotebookCreateWindowCallback cb cb'' <- mk_NotebookCreateWindowCallback cb' connectSignalFunPtr obj "create-window" cb'' SignalConnectAfter -- signal Notebook::focus-tab {- | /No description available in the introspection data./ -} type NotebookFocusTabCallback = Gtk.Enums.NotebookTab -> IO Bool -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookFocusTabCallback`@. noNotebookFocusTabCallback :: Maybe NotebookFocusTabCallback noNotebookFocusTabCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookFocusTabCallback = Ptr () -> -- object CUInt -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_NotebookFocusTabCallback`. foreign import ccall "wrapper" mk_NotebookFocusTabCallback :: C_NotebookFocusTabCallback -> IO (FunPtr C_NotebookFocusTabCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookFocusTab :: MonadIO m => NotebookFocusTabCallback -> m (GClosure C_NotebookFocusTabCallback) genClosure_NotebookFocusTab cb = liftIO $ do let cb' = wrap_NotebookFocusTabCallback cb mk_NotebookFocusTabCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookFocusTabCallback` into a `C_NotebookFocusTabCallback`. wrap_NotebookFocusTabCallback :: NotebookFocusTabCallback -> C_NotebookFocusTabCallback wrap_NotebookFocusTabCallback _cb _ object _ = do let object' = (toEnum . fromIntegral) object result <- _cb object' let result' = (fromIntegral . fromEnum) result return result' {- | Connect a signal handler for the “@focus-tab@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #focusTab callback @ -} onNotebookFocusTab :: (IsNotebook a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId onNotebookFocusTab obj cb = liftIO $ do let cb' = wrap_NotebookFocusTabCallback cb cb'' <- mk_NotebookFocusTabCallback cb' connectSignalFunPtr obj "focus-tab" cb'' SignalConnectBefore {- | Connect a signal handler for the “@focus-tab@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #focusTab callback @ -} afterNotebookFocusTab :: (IsNotebook a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId afterNotebookFocusTab obj cb = liftIO $ do let cb' = wrap_NotebookFocusTabCallback cb cb'' <- mk_NotebookFocusTabCallback cb' connectSignalFunPtr obj "focus-tab" cb'' SignalConnectAfter -- signal Notebook::move-focus-out {- | /No description available in the introspection data./ -} type NotebookMoveFocusOutCallback = Gtk.Enums.DirectionType -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookMoveFocusOutCallback`@. noNotebookMoveFocusOutCallback :: Maybe NotebookMoveFocusOutCallback noNotebookMoveFocusOutCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookMoveFocusOutCallback = Ptr () -> -- object CUInt -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_NotebookMoveFocusOutCallback`. foreign import ccall "wrapper" mk_NotebookMoveFocusOutCallback :: C_NotebookMoveFocusOutCallback -> IO (FunPtr C_NotebookMoveFocusOutCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookMoveFocusOut :: MonadIO m => NotebookMoveFocusOutCallback -> m (GClosure C_NotebookMoveFocusOutCallback) genClosure_NotebookMoveFocusOut cb = liftIO $ do let cb' = wrap_NotebookMoveFocusOutCallback cb mk_NotebookMoveFocusOutCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookMoveFocusOutCallback` into a `C_NotebookMoveFocusOutCallback`. wrap_NotebookMoveFocusOutCallback :: NotebookMoveFocusOutCallback -> C_NotebookMoveFocusOutCallback wrap_NotebookMoveFocusOutCallback _cb _ object _ = do let object' = (toEnum . fromIntegral) object _cb object' {- | Connect a signal handler for the “@move-focus-out@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #moveFocusOut callback @ -} onNotebookMoveFocusOut :: (IsNotebook a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId onNotebookMoveFocusOut obj cb = liftIO $ do let cb' = wrap_NotebookMoveFocusOutCallback cb cb'' <- mk_NotebookMoveFocusOutCallback cb' connectSignalFunPtr obj "move-focus-out" cb'' SignalConnectBefore {- | Connect a signal handler for the “@move-focus-out@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #moveFocusOut callback @ -} afterNotebookMoveFocusOut :: (IsNotebook a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId afterNotebookMoveFocusOut obj cb = liftIO $ do let cb' = wrap_NotebookMoveFocusOutCallback cb cb'' <- mk_NotebookMoveFocusOutCallback cb' connectSignalFunPtr obj "move-focus-out" cb'' SignalConnectAfter -- signal Notebook::page-added {- | the ::page-added signal is emitted in the notebook right after a page is added to the notebook. /Since: 2.10/ -} type NotebookPageAddedCallback = Gtk.Widget.Widget {- ^ /@child@/: the child 'GI.Gtk.Objects.Widget.Widget' affected -} -> Word32 {- ^ /@pageNum@/: the new page number for /@child@/ -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookPageAddedCallback`@. noNotebookPageAddedCallback :: Maybe NotebookPageAddedCallback noNotebookPageAddedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookPageAddedCallback = Ptr () -> -- object Ptr Gtk.Widget.Widget -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_NotebookPageAddedCallback`. foreign import ccall "wrapper" mk_NotebookPageAddedCallback :: C_NotebookPageAddedCallback -> IO (FunPtr C_NotebookPageAddedCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookPageAdded :: MonadIO m => NotebookPageAddedCallback -> m (GClosure C_NotebookPageAddedCallback) genClosure_NotebookPageAdded cb = liftIO $ do let cb' = wrap_NotebookPageAddedCallback cb mk_NotebookPageAddedCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookPageAddedCallback` into a `C_NotebookPageAddedCallback`. wrap_NotebookPageAddedCallback :: NotebookPageAddedCallback -> C_NotebookPageAddedCallback wrap_NotebookPageAddedCallback _cb _ child pageNum _ = do child' <- (newObject Gtk.Widget.Widget) child _cb child' pageNum {- | Connect a signal handler for the “@page-added@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #pageAdded callback @ -} onNotebookPageAdded :: (IsNotebook a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId onNotebookPageAdded obj cb = liftIO $ do let cb' = wrap_NotebookPageAddedCallback cb cb'' <- mk_NotebookPageAddedCallback cb' connectSignalFunPtr obj "page-added" cb'' SignalConnectBefore {- | Connect a signal handler for the “@page-added@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #pageAdded callback @ -} afterNotebookPageAdded :: (IsNotebook a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId afterNotebookPageAdded obj cb = liftIO $ do let cb' = wrap_NotebookPageAddedCallback cb cb'' <- mk_NotebookPageAddedCallback cb' connectSignalFunPtr obj "page-added" cb'' SignalConnectAfter -- signal Notebook::page-removed {- | the ::page-removed signal is emitted in the notebook right after a page is removed from the notebook. /Since: 2.10/ -} type NotebookPageRemovedCallback = Gtk.Widget.Widget {- ^ /@child@/: the child 'GI.Gtk.Objects.Widget.Widget' affected -} -> Word32 {- ^ /@pageNum@/: the /@child@/ page number -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookPageRemovedCallback`@. noNotebookPageRemovedCallback :: Maybe NotebookPageRemovedCallback noNotebookPageRemovedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookPageRemovedCallback = Ptr () -> -- object Ptr Gtk.Widget.Widget -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_NotebookPageRemovedCallback`. foreign import ccall "wrapper" mk_NotebookPageRemovedCallback :: C_NotebookPageRemovedCallback -> IO (FunPtr C_NotebookPageRemovedCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookPageRemoved :: MonadIO m => NotebookPageRemovedCallback -> m (GClosure C_NotebookPageRemovedCallback) genClosure_NotebookPageRemoved cb = liftIO $ do let cb' = wrap_NotebookPageRemovedCallback cb mk_NotebookPageRemovedCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookPageRemovedCallback` into a `C_NotebookPageRemovedCallback`. wrap_NotebookPageRemovedCallback :: NotebookPageRemovedCallback -> C_NotebookPageRemovedCallback wrap_NotebookPageRemovedCallback _cb _ child pageNum _ = do child' <- (newObject Gtk.Widget.Widget) child _cb child' pageNum {- | Connect a signal handler for the “@page-removed@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #pageRemoved callback @ -} onNotebookPageRemoved :: (IsNotebook a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId onNotebookPageRemoved obj cb = liftIO $ do let cb' = wrap_NotebookPageRemovedCallback cb cb'' <- mk_NotebookPageRemovedCallback cb' connectSignalFunPtr obj "page-removed" cb'' SignalConnectBefore {- | Connect a signal handler for the “@page-removed@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #pageRemoved callback @ -} afterNotebookPageRemoved :: (IsNotebook a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId afterNotebookPageRemoved obj cb = liftIO $ do let cb' = wrap_NotebookPageRemovedCallback cb cb'' <- mk_NotebookPageRemovedCallback cb' connectSignalFunPtr obj "page-removed" cb'' SignalConnectAfter -- signal Notebook::page-reordered {- | the ::page-reordered signal is emitted in the notebook right after a page has been reordered. /Since: 2.10/ -} type NotebookPageReorderedCallback = Gtk.Widget.Widget {- ^ /@child@/: the child 'GI.Gtk.Objects.Widget.Widget' affected -} -> Word32 {- ^ /@pageNum@/: the new page number for /@child@/ -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookPageReorderedCallback`@. noNotebookPageReorderedCallback :: Maybe NotebookPageReorderedCallback noNotebookPageReorderedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookPageReorderedCallback = Ptr () -> -- object Ptr Gtk.Widget.Widget -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_NotebookPageReorderedCallback`. foreign import ccall "wrapper" mk_NotebookPageReorderedCallback :: C_NotebookPageReorderedCallback -> IO (FunPtr C_NotebookPageReorderedCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookPageReordered :: MonadIO m => NotebookPageReorderedCallback -> m (GClosure C_NotebookPageReorderedCallback) genClosure_NotebookPageReordered cb = liftIO $ do let cb' = wrap_NotebookPageReorderedCallback cb mk_NotebookPageReorderedCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookPageReorderedCallback` into a `C_NotebookPageReorderedCallback`. wrap_NotebookPageReorderedCallback :: NotebookPageReorderedCallback -> C_NotebookPageReorderedCallback wrap_NotebookPageReorderedCallback _cb _ child pageNum _ = do child' <- (newObject Gtk.Widget.Widget) child _cb child' pageNum {- | Connect a signal handler for the “@page-reordered@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #pageReordered callback @ -} onNotebookPageReordered :: (IsNotebook a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId onNotebookPageReordered obj cb = liftIO $ do let cb' = wrap_NotebookPageReorderedCallback cb cb'' <- mk_NotebookPageReorderedCallback cb' connectSignalFunPtr obj "page-reordered" cb'' SignalConnectBefore {- | Connect a signal handler for the “@page-reordered@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #pageReordered callback @ -} afterNotebookPageReordered :: (IsNotebook a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId afterNotebookPageReordered obj cb = liftIO $ do let cb' = wrap_NotebookPageReorderedCallback cb cb'' <- mk_NotebookPageReorderedCallback cb' connectSignalFunPtr obj "page-reordered" cb'' SignalConnectAfter -- signal Notebook::reorder-tab {- | /No description available in the introspection data./ -} type NotebookReorderTabCallback = Gtk.Enums.DirectionType -> Bool -> IO Bool -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookReorderTabCallback`@. noNotebookReorderTabCallback :: Maybe NotebookReorderTabCallback noNotebookReorderTabCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookReorderTabCallback = Ptr () -> -- object CUInt -> CInt -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_NotebookReorderTabCallback`. foreign import ccall "wrapper" mk_NotebookReorderTabCallback :: C_NotebookReorderTabCallback -> IO (FunPtr C_NotebookReorderTabCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookReorderTab :: MonadIO m => NotebookReorderTabCallback -> m (GClosure C_NotebookReorderTabCallback) genClosure_NotebookReorderTab cb = liftIO $ do let cb' = wrap_NotebookReorderTabCallback cb mk_NotebookReorderTabCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookReorderTabCallback` into a `C_NotebookReorderTabCallback`. wrap_NotebookReorderTabCallback :: NotebookReorderTabCallback -> C_NotebookReorderTabCallback wrap_NotebookReorderTabCallback _cb _ object p0 _ = do let object' = (toEnum . fromIntegral) object let p0' = (/= 0) p0 result <- _cb object' p0' let result' = (fromIntegral . fromEnum) result return result' {- | Connect a signal handler for the “@reorder-tab@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #reorderTab callback @ -} onNotebookReorderTab :: (IsNotebook a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId onNotebookReorderTab obj cb = liftIO $ do let cb' = wrap_NotebookReorderTabCallback cb cb'' <- mk_NotebookReorderTabCallback cb' connectSignalFunPtr obj "reorder-tab" cb'' SignalConnectBefore {- | Connect a signal handler for the “@reorder-tab@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #reorderTab callback @ -} afterNotebookReorderTab :: (IsNotebook a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId afterNotebookReorderTab obj cb = liftIO $ do let cb' = wrap_NotebookReorderTabCallback cb cb'' <- mk_NotebookReorderTabCallback cb' connectSignalFunPtr obj "reorder-tab" cb'' SignalConnectAfter -- signal Notebook::select-page {- | /No description available in the introspection data./ -} type NotebookSelectPageCallback = Bool -> IO Bool -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookSelectPageCallback`@. noNotebookSelectPageCallback :: Maybe NotebookSelectPageCallback noNotebookSelectPageCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookSelectPageCallback = Ptr () -> -- object CInt -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_NotebookSelectPageCallback`. foreign import ccall "wrapper" mk_NotebookSelectPageCallback :: C_NotebookSelectPageCallback -> IO (FunPtr C_NotebookSelectPageCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookSelectPage :: MonadIO m => NotebookSelectPageCallback -> m (GClosure C_NotebookSelectPageCallback) genClosure_NotebookSelectPage cb = liftIO $ do let cb' = wrap_NotebookSelectPageCallback cb mk_NotebookSelectPageCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookSelectPageCallback` into a `C_NotebookSelectPageCallback`. wrap_NotebookSelectPageCallback :: NotebookSelectPageCallback -> C_NotebookSelectPageCallback wrap_NotebookSelectPageCallback _cb _ object _ = do let object' = (/= 0) object result <- _cb object' let result' = (fromIntegral . fromEnum) result return result' {- | Connect a signal handler for the “@select-page@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #selectPage callback @ -} onNotebookSelectPage :: (IsNotebook a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId onNotebookSelectPage obj cb = liftIO $ do let cb' = wrap_NotebookSelectPageCallback cb cb'' <- mk_NotebookSelectPageCallback cb' connectSignalFunPtr obj "select-page" cb'' SignalConnectBefore {- | Connect a signal handler for the “@select-page@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #selectPage callback @ -} afterNotebookSelectPage :: (IsNotebook a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId afterNotebookSelectPage obj cb = liftIO $ do let cb' = wrap_NotebookSelectPageCallback cb cb'' <- mk_NotebookSelectPageCallback cb' connectSignalFunPtr obj "select-page" cb'' SignalConnectAfter -- signal Notebook::switch-page {- | Emitted when the user or a function changes the current page. -} type NotebookSwitchPageCallback = Gtk.Widget.Widget {- ^ /@page@/: the new current page -} -> Word32 {- ^ /@pageNum@/: the index of the page -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `NotebookSwitchPageCallback`@. noNotebookSwitchPageCallback :: Maybe NotebookSwitchPageCallback noNotebookSwitchPageCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_NotebookSwitchPageCallback = Ptr () -> -- object Ptr Gtk.Widget.Widget -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_NotebookSwitchPageCallback`. foreign import ccall "wrapper" mk_NotebookSwitchPageCallback :: C_NotebookSwitchPageCallback -> IO (FunPtr C_NotebookSwitchPageCallback) -- | Wrap the callback into a `GClosure`. genClosure_NotebookSwitchPage :: MonadIO m => NotebookSwitchPageCallback -> m (GClosure C_NotebookSwitchPageCallback) genClosure_NotebookSwitchPage cb = liftIO $ do let cb' = wrap_NotebookSwitchPageCallback cb mk_NotebookSwitchPageCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `NotebookSwitchPageCallback` into a `C_NotebookSwitchPageCallback`. wrap_NotebookSwitchPageCallback :: NotebookSwitchPageCallback -> C_NotebookSwitchPageCallback wrap_NotebookSwitchPageCallback _cb _ page pageNum _ = do page' <- (newObject Gtk.Widget.Widget) page _cb page' pageNum {- | Connect a signal handler for the “@switch-page@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' notebook #switchPage callback @ -} onNotebookSwitchPage :: (IsNotebook a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId onNotebookSwitchPage obj cb = liftIO $ do let cb' = wrap_NotebookSwitchPageCallback cb cb'' <- mk_NotebookSwitchPageCallback cb' connectSignalFunPtr obj "switch-page" cb'' SignalConnectBefore {- | Connect a signal handler for the “@switch-page@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' notebook #switchPage callback @ -} afterNotebookSwitchPage :: (IsNotebook a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId afterNotebookSwitchPage obj cb = liftIO $ do let cb' = wrap_NotebookSwitchPageCallback cb cb'' <- mk_NotebookSwitchPageCallback cb' connectSignalFunPtr obj "switch-page" cb'' SignalConnectAfter -- VVV Prop "enable-popup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@enable-popup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #enablePopup @ -} getNotebookEnablePopup :: (MonadIO m, IsNotebook o) => o -> m Bool getNotebookEnablePopup obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-popup" {- | Set the value of the “@enable-popup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #enablePopup 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookEnablePopup :: (MonadIO m, IsNotebook o) => o -> Bool -> m () setNotebookEnablePopup obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-popup" val {- | Construct a `GValueConstruct` with valid value for the “@enable-popup@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookEnablePopup :: (IsNotebook o) => Bool -> IO (GValueConstruct o) constructNotebookEnablePopup val = B.Properties.constructObjectPropertyBool "enable-popup" val #if ENABLE_OVERLOADING data NotebookEnablePopupPropertyInfo instance AttrInfo NotebookEnablePopupPropertyInfo where type AttrAllowedOps NotebookEnablePopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool type AttrBaseTypeConstraint NotebookEnablePopupPropertyInfo = IsNotebook type AttrGetType NotebookEnablePopupPropertyInfo = Bool type AttrLabel NotebookEnablePopupPropertyInfo = "enable-popup" type AttrOrigin NotebookEnablePopupPropertyInfo = Notebook attrGet _ = getNotebookEnablePopup attrSet _ = setNotebookEnablePopup attrConstruct _ = constructNotebookEnablePopup attrClear _ = undefined #endif -- VVV Prop "group-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Just True) {- | Get the value of the “@group-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #groupName @ -} getNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> m (Maybe T.Text) getNotebookGroupName obj = liftIO $ B.Properties.getObjectPropertyString obj "group-name" {- | Set the value of the “@group-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #groupName 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> T.Text -> m () setNotebookGroupName obj val = liftIO $ B.Properties.setObjectPropertyString obj "group-name" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@group-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookGroupName :: (IsNotebook o) => T.Text -> IO (GValueConstruct o) constructNotebookGroupName val = B.Properties.constructObjectPropertyString "group-name" (Just val) {- | Set the value of the “@group-name@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #groupName @ -} clearNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> m () clearNotebookGroupName obj = liftIO $ B.Properties.setObjectPropertyString obj "group-name" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING data NotebookGroupNamePropertyInfo instance AttrInfo NotebookGroupNamePropertyInfo where type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = IsNotebook type AttrGetType NotebookGroupNamePropertyInfo = (Maybe T.Text) type AttrLabel NotebookGroupNamePropertyInfo = "group-name" type AttrOrigin NotebookGroupNamePropertyInfo = Notebook attrGet _ = getNotebookGroupName attrSet _ = setNotebookGroupName attrConstruct _ = constructNotebookGroupName attrClear _ = clearNotebookGroupName #endif -- VVV Prop "page" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@page@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #page @ -} getNotebookPage :: (MonadIO m, IsNotebook o) => o -> m Int32 getNotebookPage obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "page" {- | Set the value of the “@page@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #page 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookPage :: (MonadIO m, IsNotebook o) => o -> Int32 -> m () setNotebookPage obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "page" val {- | Construct a `GValueConstruct` with valid value for the “@page@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookPage :: (IsNotebook o) => Int32 -> IO (GValueConstruct o) constructNotebookPage val = B.Properties.constructObjectPropertyInt32 "page" val #if ENABLE_OVERLOADING data NotebookPagePropertyInfo instance AttrInfo NotebookPagePropertyInfo where type AttrAllowedOps NotebookPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookPagePropertyInfo = (~) Int32 type AttrBaseTypeConstraint NotebookPagePropertyInfo = IsNotebook type AttrGetType NotebookPagePropertyInfo = Int32 type AttrLabel NotebookPagePropertyInfo = "page" type AttrOrigin NotebookPagePropertyInfo = Notebook attrGet _ = getNotebookPage attrSet _ = setNotebookPage attrConstruct _ = constructNotebookPage attrClear _ = undefined #endif -- VVV Prop "scrollable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@scrollable@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #scrollable @ -} getNotebookScrollable :: (MonadIO m, IsNotebook o) => o -> m Bool getNotebookScrollable obj = liftIO $ B.Properties.getObjectPropertyBool obj "scrollable" {- | Set the value of the “@scrollable@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #scrollable 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookScrollable :: (MonadIO m, IsNotebook o) => o -> Bool -> m () setNotebookScrollable obj val = liftIO $ B.Properties.setObjectPropertyBool obj "scrollable" val {- | Construct a `GValueConstruct` with valid value for the “@scrollable@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookScrollable :: (IsNotebook o) => Bool -> IO (GValueConstruct o) constructNotebookScrollable val = B.Properties.constructObjectPropertyBool "scrollable" val #if ENABLE_OVERLOADING data NotebookScrollablePropertyInfo instance AttrInfo NotebookScrollablePropertyInfo where type AttrAllowedOps NotebookScrollablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookScrollablePropertyInfo = (~) Bool type AttrBaseTypeConstraint NotebookScrollablePropertyInfo = IsNotebook type AttrGetType NotebookScrollablePropertyInfo = Bool type AttrLabel NotebookScrollablePropertyInfo = "scrollable" type AttrOrigin NotebookScrollablePropertyInfo = Notebook attrGet _ = getNotebookScrollable attrSet _ = setNotebookScrollable attrConstruct _ = constructNotebookScrollable attrClear _ = undefined #endif -- VVV Prop "show-border" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@show-border@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #showBorder @ -} getNotebookShowBorder :: (MonadIO m, IsNotebook o) => o -> m Bool getNotebookShowBorder obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-border" {- | Set the value of the “@show-border@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #showBorder 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookShowBorder :: (MonadIO m, IsNotebook o) => o -> Bool -> m () setNotebookShowBorder obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-border" val {- | Construct a `GValueConstruct` with valid value for the “@show-border@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookShowBorder :: (IsNotebook o) => Bool -> IO (GValueConstruct o) constructNotebookShowBorder val = B.Properties.constructObjectPropertyBool "show-border" val #if ENABLE_OVERLOADING data NotebookShowBorderPropertyInfo instance AttrInfo NotebookShowBorderPropertyInfo where type AttrAllowedOps NotebookShowBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool type AttrBaseTypeConstraint NotebookShowBorderPropertyInfo = IsNotebook type AttrGetType NotebookShowBorderPropertyInfo = Bool type AttrLabel NotebookShowBorderPropertyInfo = "show-border" type AttrOrigin NotebookShowBorderPropertyInfo = Notebook attrGet _ = getNotebookShowBorder attrSet _ = setNotebookShowBorder attrConstruct _ = constructNotebookShowBorder attrClear _ = undefined #endif -- VVV Prop "show-tabs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@show-tabs@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #showTabs @ -} getNotebookShowTabs :: (MonadIO m, IsNotebook o) => o -> m Bool getNotebookShowTabs obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-tabs" {- | Set the value of the “@show-tabs@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #showTabs 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookShowTabs :: (MonadIO m, IsNotebook o) => o -> Bool -> m () setNotebookShowTabs obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-tabs" val {- | Construct a `GValueConstruct` with valid value for the “@show-tabs@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookShowTabs :: (IsNotebook o) => Bool -> IO (GValueConstruct o) constructNotebookShowTabs val = B.Properties.constructObjectPropertyBool "show-tabs" val #if ENABLE_OVERLOADING data NotebookShowTabsPropertyInfo instance AttrInfo NotebookShowTabsPropertyInfo where type AttrAllowedOps NotebookShowTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool type AttrBaseTypeConstraint NotebookShowTabsPropertyInfo = IsNotebook type AttrGetType NotebookShowTabsPropertyInfo = Bool type AttrLabel NotebookShowTabsPropertyInfo = "show-tabs" type AttrOrigin NotebookShowTabsPropertyInfo = Notebook attrGet _ = getNotebookShowTabs attrSet _ = setNotebookShowTabs attrConstruct _ = constructNotebookShowTabs attrClear _ = undefined #endif -- VVV Prop "tab-pos" -- Type: TInterface (Name {namespace = "Gtk", name = "PositionType"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@tab-pos@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' notebook #tabPos @ -} getNotebookTabPos :: (MonadIO m, IsNotebook o) => o -> m Gtk.Enums.PositionType getNotebookTabPos obj = liftIO $ B.Properties.getObjectPropertyEnum obj "tab-pos" {- | Set the value of the “@tab-pos@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' notebook [ #tabPos 'Data.GI.Base.Attributes.:=' value ] @ -} setNotebookTabPos :: (MonadIO m, IsNotebook o) => o -> Gtk.Enums.PositionType -> m () setNotebookTabPos obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "tab-pos" val {- | Construct a `GValueConstruct` with valid value for the “@tab-pos@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructNotebookTabPos :: (IsNotebook o) => Gtk.Enums.PositionType -> IO (GValueConstruct o) constructNotebookTabPos val = B.Properties.constructObjectPropertyEnum "tab-pos" val #if ENABLE_OVERLOADING data NotebookTabPosPropertyInfo instance AttrInfo NotebookTabPosPropertyInfo where type AttrAllowedOps NotebookTabPosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint NotebookTabPosPropertyInfo = (~) Gtk.Enums.PositionType type AttrBaseTypeConstraint NotebookTabPosPropertyInfo = IsNotebook type AttrGetType NotebookTabPosPropertyInfo = Gtk.Enums.PositionType type AttrLabel NotebookTabPosPropertyInfo = "tab-pos" type AttrOrigin NotebookTabPosPropertyInfo = Notebook attrGet _ = getNotebookTabPos attrSet _ = setNotebookTabPos attrConstruct _ = constructNotebookTabPos attrClear _ = undefined #endif #if ENABLE_OVERLOADING instance O.HasAttributeList Notebook type instance O.AttributeList Notebook = NotebookAttributeList type NotebookAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("enablePopup", NotebookEnablePopupPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("groupName", NotebookGroupNamePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showBorder", NotebookShowBorderPropertyInfo), '("showTabs", NotebookShowTabsPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tabPos", NotebookTabPosPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING 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 #endif #if ENABLE_OVERLOADING data NotebookChangeCurrentPageSignalInfo instance SignalInfo NotebookChangeCurrentPageSignalInfo where type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookChangeCurrentPageCallback cb cb'' <- mk_NotebookChangeCurrentPageCallback cb' connectSignalFunPtr obj "change-current-page" cb'' connectMode data NotebookCreateWindowSignalInfo instance SignalInfo NotebookCreateWindowSignalInfo where type HaskellCallbackType NotebookCreateWindowSignalInfo = NotebookCreateWindowCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookCreateWindowCallback cb cb'' <- mk_NotebookCreateWindowCallback cb' connectSignalFunPtr obj "create-window" cb'' connectMode data NotebookFocusTabSignalInfo instance SignalInfo NotebookFocusTabSignalInfo where type HaskellCallbackType NotebookFocusTabSignalInfo = NotebookFocusTabCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookFocusTabCallback cb cb'' <- mk_NotebookFocusTabCallback cb' connectSignalFunPtr obj "focus-tab" cb'' connectMode data NotebookMoveFocusOutSignalInfo instance SignalInfo NotebookMoveFocusOutSignalInfo where type HaskellCallbackType NotebookMoveFocusOutSignalInfo = NotebookMoveFocusOutCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookMoveFocusOutCallback cb cb'' <- mk_NotebookMoveFocusOutCallback cb' connectSignalFunPtr obj "move-focus-out" cb'' connectMode data NotebookPageAddedSignalInfo instance SignalInfo NotebookPageAddedSignalInfo where type HaskellCallbackType NotebookPageAddedSignalInfo = NotebookPageAddedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookPageAddedCallback cb cb'' <- mk_NotebookPageAddedCallback cb' connectSignalFunPtr obj "page-added" cb'' connectMode data NotebookPageRemovedSignalInfo instance SignalInfo NotebookPageRemovedSignalInfo where type HaskellCallbackType NotebookPageRemovedSignalInfo = NotebookPageRemovedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookPageRemovedCallback cb cb'' <- mk_NotebookPageRemovedCallback cb' connectSignalFunPtr obj "page-removed" cb'' connectMode data NotebookPageReorderedSignalInfo instance SignalInfo NotebookPageReorderedSignalInfo where type HaskellCallbackType NotebookPageReorderedSignalInfo = NotebookPageReorderedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookPageReorderedCallback cb cb'' <- mk_NotebookPageReorderedCallback cb' connectSignalFunPtr obj "page-reordered" cb'' connectMode data NotebookReorderTabSignalInfo instance SignalInfo NotebookReorderTabSignalInfo where type HaskellCallbackType NotebookReorderTabSignalInfo = NotebookReorderTabCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookReorderTabCallback cb cb'' <- mk_NotebookReorderTabCallback cb' connectSignalFunPtr obj "reorder-tab" cb'' connectMode data NotebookSelectPageSignalInfo instance SignalInfo NotebookSelectPageSignalInfo where type HaskellCallbackType NotebookSelectPageSignalInfo = NotebookSelectPageCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookSelectPageCallback cb cb'' <- mk_NotebookSelectPageCallback cb' connectSignalFunPtr obj "select-page" cb'' connectMode data NotebookSwitchPageSignalInfo instance SignalInfo NotebookSwitchPageSignalInfo where type HaskellCallbackType NotebookSwitchPageSignalInfo = NotebookSwitchPageCallback connectSignal _ obj cb connectMode = do let cb' = wrap_NotebookSwitchPageCallback cb cb'' <- mk_NotebookSwitchPageCallback cb' connectSignalFunPtr obj "switch-page" cb'' connectMode type instance O.SignalList Notebook = NotebookSignalList type NotebookSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("changeCurrentPage", NotebookChangeCurrentPageSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("createWindow", NotebookCreateWindowSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("focusTab", NotebookFocusTabSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveFocusOut", NotebookMoveFocusOutSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pageAdded", NotebookPageAddedSignalInfo), '("pageRemoved", NotebookPageRemovedSignalInfo), '("pageReordered", NotebookPageReorderedSignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("reorderTab", NotebookReorderTabSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectPage", NotebookSelectPageSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("switchPage", NotebookSwitchPageSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) #endif -- method Notebook::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Notebook"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_new" gtk_notebook_new :: IO (Ptr Notebook) {- | Creates a new 'GI.Gtk.Objects.Notebook.Notebook' widget with no pages. -} notebookNew :: (B.CallStack.HasCallStack, MonadIO m) => m Notebook {- ^ __Returns:__ the newly created 'GI.Gtk.Objects.Notebook.Notebook' -} notebookNew = liftIO $ do result <- gtk_notebook_new checkUnexpectedReturnNULL "notebookNew" result result' <- (newObject Notebook) result return result' #if ENABLE_OVERLOADING #endif -- method Notebook::append_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO Int32 {- | Appends a page to /@notebook@/. -} notebookAppendPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the appended page in the notebook, or -1 if function fails -} notebookAppendPage notebook child tabLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' result <- gtk_notebook_append_page notebook' child' maybeTabLabel touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookAppendPageMethodInfo instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo NotebookAppendPageMethodInfo a signature where overloadedMethod _ = notebookAppendPage #endif -- method Notebook::append_page_menu -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget to use as a label for the\n page-switch menu, if that is enabled. If %NULL, and @tab_label\n is a #GtkLabel or %NULL, then the menu label will be a newly\n created label with the same text as @tab_label; if @tab_label\n is not a #GtkLabel, @menu_label must be specified if the\n page-switch menu is to be used.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- menu_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO Int32 {- | Appends a page to /@notebook@/, specifying the widget to use as the label in the popup menu. -} notebookAppendPageMenu :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> Maybe (d) {- ^ /@menuLabel@/: the widget to use as a label for the page-switch menu, if that is enabled. If 'Nothing', and /@tabLabel@/ is a 'GI.Gtk.Objects.Label.Label' or 'Nothing', then the menu label will be a newly created label with the same text as /@tabLabel@/; if /@tabLabel@/ is not a 'GI.Gtk.Objects.Label.Label', /@menuLabel@/ must be specified if the page-switch menu is to be used. -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the appended page in the notebook, or -1 if function fails -} notebookAppendPageMenu notebook child tabLabel menuLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' maybeMenuLabel <- case menuLabel of Nothing -> return nullPtr Just jMenuLabel -> do jMenuLabel' <- unsafeManagedPtrCastPtr jMenuLabel return jMenuLabel' result <- gtk_notebook_append_page_menu notebook' child' maybeTabLabel maybeMenuLabel touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr whenJust menuLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookAppendPageMenuMethodInfo instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => O.MethodInfo NotebookAppendPageMenuMethodInfo a signature where overloadedMethod _ = notebookAppendPageMenu #endif -- method Notebook::detach_tab -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO () {- | Removes the child from the notebook. This function is very similar to 'GI.Gtk.Objects.Container.containerRemove', but additionally informs the notebook that the removal is happening as part of a tab DND operation, which should not be cancelled. /Since: 3.16/ -} notebookDetachTab :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a child -} -> m () notebookDetachTab notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child gtk_notebook_detach_tab notebook' child' touchManagedPtr notebook touchManagedPtr child return () #if ENABLE_OVERLOADING data NotebookDetachTabMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookDetachTabMethodInfo a signature where overloadedMethod _ = notebookDetachTab #endif -- method Notebook::get_action_widget -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface (Name {namespace = "Gtk", name = "PackType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pack type of the action widget to receive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget :: Ptr Notebook -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CUInt -> -- pack_type : TInterface (Name {namespace = "Gtk", name = "PackType"}) IO (Ptr Gtk.Widget.Widget) {- | Gets one of the action widgets. See 'GI.Gtk.Objects.Notebook.notebookSetActionWidget'. /Since: 2.20/ -} notebookGetActionWidget :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Gtk.Enums.PackType {- ^ /@packType@/: pack type of the action widget to receive -} -> m (Maybe Gtk.Widget.Widget) {- ^ __Returns:__ The action widget with the given /@packType@/ or 'Nothing' when this action widget has not been set -} notebookGetActionWidget notebook packType = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook let packType' = (fromIntegral . fromEnum) packType result <- gtk_notebook_get_action_widget notebook' packType' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gtk.Widget.Widget) result' return result'' touchManagedPtr notebook return maybeResult #if ENABLE_OVERLOADING data NotebookGetActionWidgetMethodInfo instance (signature ~ (Gtk.Enums.PackType -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetActionWidgetMethodInfo a signature where overloadedMethod _ = notebookGetActionWidget #endif -- method Notebook::get_current_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO Int32 {- | Returns the page number of the current page. -} notebookGetCurrentPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the current page in the notebook. If the notebook has no pages, then -1 will be returned. -} notebookGetCurrentPage notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_current_page notebook' touchManagedPtr notebook return result #if ENABLE_OVERLOADING data NotebookGetCurrentPageMethodInfo instance (signature ~ (m Int32), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetCurrentPageMethodInfo a signature where overloadedMethod _ = notebookGetCurrentPage #endif -- method Notebook::get_group_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO CString {- | Gets the current group name for /@notebook@/. /Since: 2.24/ -} notebookGetGroupName :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m (Maybe T.Text) {- ^ __Returns:__ the group name, or 'Nothing' if none is set -} notebookGetGroupName notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_group_name notebook' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- cstringToText result' return result'' touchManagedPtr notebook return maybeResult #if ENABLE_OVERLOADING data NotebookGetGroupNameMethodInfo instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetGroupNameMethodInfo a signature where overloadedMethod _ = notebookGetGroupName #endif -- method Notebook::get_menu_label -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a widget contained in a page of @notebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_menu_label" gtk_notebook_get_menu_label :: Ptr Notebook -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO (Ptr Gtk.Widget.Widget) {- | Retrieves the menu label widget of the page containing /@child@/. -} notebookGetMenuLabel :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a widget contained in a page of /@notebook@/ -} -> m (Maybe Gtk.Widget.Widget) {- ^ __Returns:__ the menu label, or 'Nothing' if the notebook page does not have a menu label other than the default (the tab label). -} notebookGetMenuLabel notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_menu_label notebook' child' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gtk.Widget.Widget) result' return result'' touchManagedPtr notebook touchManagedPtr child return maybeResult #if ENABLE_OVERLOADING data NotebookGetMenuLabelMethodInfo instance (signature ~ (b -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetMenuLabelMethodInfo a signature where overloadedMethod _ = notebookGetMenuLabel #endif -- method Notebook::get_menu_label_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child widget of a page of the notebook.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO CString {- | Retrieves the text of the menu label for the page containing /@child@/. -} notebookGetMenuLabelText :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the child widget of a page of the notebook. -} -> m (Maybe T.Text) {- ^ __Returns:__ the text of the tab label, or 'Nothing' if the widget does not have a menu label other than the default menu label, or the menu label widget is not a 'GI.Gtk.Objects.Label.Label'. The string is owned by the widget and must not be freed. -} notebookGetMenuLabelText notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_menu_label_text notebook' child' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- cstringToText result' return result'' touchManagedPtr notebook touchManagedPtr child return maybeResult #if ENABLE_OVERLOADING data NotebookGetMenuLabelTextMethodInfo instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetMenuLabelTextMethodInfo a signature where overloadedMethod _ = notebookGetMenuLabelText #endif -- method Notebook::get_n_pages -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO Int32 {- | Gets the number of pages in a notebook. /Since: 2.2/ -} notebookGetNPages :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Int32 {- ^ __Returns:__ the number of pages in the notebook -} notebookGetNPages notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_n_pages notebook' touchManagedPtr notebook return result #if ENABLE_OVERLOADING data NotebookGetNPagesMethodInfo instance (signature ~ (m Int32), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetNPagesMethodInfo a signature where overloadedMethod _ = notebookGetNPages #endif -- method Notebook::get_nth_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of a page in the notebook, or -1\n to get the last page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: Ptr Notebook -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Int32 -> -- page_num : TBasicType TInt IO (Ptr Gtk.Widget.Widget) {- | Returns the child widget contained in page number /@pageNum@/. -} notebookGetNthPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Int32 {- ^ /@pageNum@/: the index of a page in the notebook, or -1 to get the last page -} -> m (Maybe Gtk.Widget.Widget) {- ^ __Returns:__ the child widget, or 'Nothing' if /@pageNum@/ is out of bounds -} notebookGetNthPage notebook pageNum = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_nth_page notebook' pageNum maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gtk.Widget.Widget) result' return result'' touchManagedPtr notebook return maybeResult #if ENABLE_OVERLOADING data NotebookGetNthPageMethodInfo instance (signature ~ (Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetNthPageMethodInfo a signature where overloadedMethod _ = notebookGetNthPage #endif -- method Notebook::get_scrollable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO CInt {- | Returns whether the tab label area has arrows for scrolling. See 'GI.Gtk.Objects.Notebook.notebookSetScrollable'. -} notebookGetScrollable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Bool {- ^ __Returns:__ 'True' if arrows for scrolling are present -} notebookGetScrollable notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_scrollable notebook' let result' = (/= 0) result touchManagedPtr notebook return result' #if ENABLE_OVERLOADING data NotebookGetScrollableMethodInfo instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetScrollableMethodInfo a signature where overloadedMethod _ = notebookGetScrollable #endif -- method Notebook::get_show_border -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO CInt {- | Returns whether a bevel will be drawn around the notebook pages. See 'GI.Gtk.Objects.Notebook.notebookSetShowBorder'. -} notebookGetShowBorder :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Bool {- ^ __Returns:__ 'True' if the bevel is drawn -} notebookGetShowBorder notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_show_border notebook' let result' = (/= 0) result touchManagedPtr notebook return result' #if ENABLE_OVERLOADING data NotebookGetShowBorderMethodInfo instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetShowBorderMethodInfo a signature where overloadedMethod _ = notebookGetShowBorder #endif -- method Notebook::get_show_tabs -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO CInt {- | Returns whether the tabs of the notebook are shown. See 'GI.Gtk.Objects.Notebook.notebookSetShowTabs'. -} notebookGetShowTabs :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Bool {- ^ __Returns:__ 'True' if the tabs are shown -} notebookGetShowTabs notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_show_tabs notebook' let result' = (/= 0) result touchManagedPtr notebook return result' #if ENABLE_OVERLOADING data NotebookGetShowTabsMethodInfo instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetShowTabsMethodInfo a signature where overloadedMethod _ = notebookGetShowTabs #endif -- method Notebook::get_tab_detachable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child #GtkWidget", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO CInt {- | Returns whether the tab contents can be detached from /@notebook@/. /Since: 2.10/ -} notebookGetTabDetachable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a child 'GI.Gtk.Objects.Widget.Widget' -} -> m Bool {- ^ __Returns:__ 'True' if the tab is detachable. -} notebookGetTabDetachable notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_tab_detachable notebook' child' let result' = (/= 0) result touchManagedPtr notebook touchManagedPtr child return result' #if ENABLE_OVERLOADING data NotebookGetTabDetachableMethodInfo instance (signature ~ (b -> m Bool), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetTabDetachableMethodInfo a signature where overloadedMethod _ = notebookGetTabDetachable #endif -- method Notebook::get_tab_hborder -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO Word16 {-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"] #-} {- | Returns the horizontal width of a tab border. /Since: 2.22/ -} notebookGetTabHborder :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Word16 {- ^ __Returns:__ horizontal width of a tab border -} notebookGetTabHborder notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_tab_hborder notebook' touchManagedPtr notebook return result #if ENABLE_OVERLOADING data NotebookGetTabHborderMethodInfo instance (signature ~ (m Word16), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetTabHborderMethodInfo a signature where overloadedMethod _ = notebookGetTabHborder #endif -- method Notebook::get_tab_label -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "Widget"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label :: Ptr Notebook -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO (Ptr Gtk.Widget.Widget) {- | Returns the tab label widget for the page /@child@/. 'Nothing' is returned if /@child@/ is not in /@notebook@/ or if no tab label has specifically been set for /@child@/. -} notebookGetTabLabel :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the page -} -> m (Maybe Gtk.Widget.Widget) {- ^ __Returns:__ the tab label -} notebookGetTabLabel notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_tab_label notebook' child' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gtk.Widget.Widget) result' return result'' touchManagedPtr notebook touchManagedPtr child return maybeResult #if ENABLE_OVERLOADING data NotebookGetTabLabelMethodInfo instance (signature ~ (b -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetTabLabelMethodInfo a signature where overloadedMethod _ = notebookGetTabLabel #endif -- method Notebook::get_tab_label_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a widget contained in a page of @notebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO CString {- | Retrieves the text of the tab label for the page containing /@child@/. -} notebookGetTabLabelText :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a widget contained in a page of /@notebook@/ -} -> m (Maybe T.Text) {- ^ __Returns:__ the text of the tab label, or 'Nothing' if the tab label widget is not a 'GI.Gtk.Objects.Label.Label'. The string is owned by the widget and must not be freed. -} notebookGetTabLabelText notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_tab_label_text notebook' child' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- cstringToText result' return result'' touchManagedPtr notebook touchManagedPtr child return maybeResult #if ENABLE_OVERLOADING data NotebookGetTabLabelTextMethodInfo instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetTabLabelTextMethodInfo a signature where overloadedMethod _ = notebookGetTabLabelText #endif -- method Notebook::get_tab_pos -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PositionType"})) -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos :: Ptr Notebook -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO CUInt {- | Gets the edge at which the tabs for switching pages in the notebook are drawn. -} notebookGetTabPos :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Gtk.Enums.PositionType {- ^ __Returns:__ the edge at which the tabs are drawn -} notebookGetTabPos notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_tab_pos notebook' let result' = (toEnum . fromIntegral) result touchManagedPtr notebook return result' #if ENABLE_OVERLOADING data NotebookGetTabPosMethodInfo instance (signature ~ (m Gtk.Enums.PositionType), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetTabPosMethodInfo a signature where overloadedMethod _ = notebookGetTabPos #endif -- method Notebook::get_tab_reorderable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child #GtkWidget", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO CInt {- | Gets whether the tab can be reordered via drag and drop or not. /Since: 2.10/ -} notebookGetTabReorderable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a child 'GI.Gtk.Objects.Widget.Widget' -} -> m Bool {- ^ __Returns:__ 'True' if the tab is reorderable. -} notebookGetTabReorderable notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_get_tab_reorderable notebook' child' let result' = (/= 0) result touchManagedPtr notebook touchManagedPtr child return result' #if ENABLE_OVERLOADING data NotebookGetTabReorderableMethodInfo instance (signature ~ (b -> m Bool), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookGetTabReorderableMethodInfo a signature where overloadedMethod _ = notebookGetTabReorderable #endif -- method Notebook::get_tab_vborder -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO Word16 {-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"] #-} {- | Returns the vertical width of a tab border. /Since: 2.22/ -} notebookGetTabVborder :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m Word16 {- ^ __Returns:__ vertical width of a tab border -} notebookGetTabVborder notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook result <- gtk_notebook_get_tab_vborder notebook' touchManagedPtr notebook return result #if ENABLE_OVERLOADING data NotebookGetTabVborderMethodInfo instance (signature ~ (m Word16), MonadIO m, IsNotebook a) => O.MethodInfo NotebookGetTabVborderMethodInfo a signature where overloadedMethod _ = notebookGetTabVborder #endif -- method Notebook::insert_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index (starting at 0) at which to insert the page,\n or -1 to append the page after all other pages", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) Int32 -> -- position : TBasicType TInt IO Int32 {- | Insert a page into /@notebook@/ at the given position. -} notebookInsertPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> Int32 {- ^ /@position@/: the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the inserted page in the notebook, or -1 if function fails -} notebookInsertPage notebook child tabLabel position = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' result <- gtk_notebook_insert_page notebook' child' maybeTabLabel position touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookInsertPageMethodInfo instance (signature ~ (b -> Maybe (c) -> Int32 -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo NotebookInsertPageMethodInfo a signature where overloadedMethod _ = notebookInsertPage #endif -- method Notebook::insert_page_menu -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget to use as a label for the\n page-switch menu, if that is enabled. If %NULL, and @tab_label\n is a #GtkLabel or %NULL, then the menu label will be a newly\n created label with the same text as @tab_label; if @tab_label\n is not a #GtkLabel, @menu_label must be specified if the\n page-switch menu is to be used.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index (starting at 0) at which to insert the page,\n or -1 to append the page after all other pages.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- menu_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) Int32 -> -- position : TBasicType TInt IO Int32 {- | Insert a page into /@notebook@/ at the given position, specifying the widget to use as the label in the popup menu. -} notebookInsertPageMenu :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> Maybe (d) {- ^ /@menuLabel@/: the widget to use as a label for the page-switch menu, if that is enabled. If 'Nothing', and /@tabLabel@/ is a 'GI.Gtk.Objects.Label.Label' or 'Nothing', then the menu label will be a newly created label with the same text as /@tabLabel@/; if /@tabLabel@/ is not a 'GI.Gtk.Objects.Label.Label', /@menuLabel@/ must be specified if the page-switch menu is to be used. -} -> Int32 {- ^ /@position@/: the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages. -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the inserted page in the notebook -} notebookInsertPageMenu notebook child tabLabel menuLabel position = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' maybeMenuLabel <- case menuLabel of Nothing -> return nullPtr Just jMenuLabel -> do jMenuLabel' <- unsafeManagedPtrCastPtr jMenuLabel return jMenuLabel' result <- gtk_notebook_insert_page_menu notebook' child' maybeTabLabel maybeMenuLabel position touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr whenJust menuLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookInsertPageMenuMethodInfo instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> Int32 -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => O.MethodInfo NotebookInsertPageMenuMethodInfo a signature where overloadedMethod _ = notebookInsertPageMenu #endif -- method Notebook::next_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO () {- | Switches to the next page. Nothing happens if the current page is the last page. -} notebookNextPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m () notebookNextPage notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_next_page notebook' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookNextPageMethodInfo instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookNextPageMethodInfo a signature where overloadedMethod _ = notebookNextPage #endif -- method Notebook::page_num -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO Int32 {- | Finds the index of the page which contains the given child widget. -} notebookPageNum :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a 'GI.Gtk.Objects.Widget.Widget' -} -> m Int32 {- ^ __Returns:__ the index of the page containing /@child@/, or -1 if /@child@/ is not in the notebook -} notebookPageNum notebook child = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child result <- gtk_notebook_page_num notebook' child' touchManagedPtr notebook touchManagedPtr child return result #if ENABLE_OVERLOADING data NotebookPageNumMethodInfo instance (signature ~ (b -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookPageNumMethodInfo a signature where overloadedMethod _ = notebookPageNum #endif -- method Notebook::popup_disable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO () {- | Disables the popup menu. -} notebookPopupDisable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m () notebookPopupDisable notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_popup_disable notebook' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookPopupDisableMethodInfo instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookPopupDisableMethodInfo a signature where overloadedMethod _ = notebookPopupDisable #endif -- method Notebook::popup_enable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO () {- | Enables the popup menu: if the user clicks with the right mouse button on the tab labels, a menu with all the pages will be popped up. -} notebookPopupEnable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m () notebookPopupEnable notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_popup_enable notebook' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookPopupEnableMethodInfo instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookPopupEnableMethodInfo a signature where overloadedMethod _ = notebookPopupEnable #endif -- method Notebook::prepend_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO Int32 {- | Prepends a page to /@notebook@/. -} notebookPrependPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the prepended page in the notebook, or -1 if function fails -} notebookPrependPage notebook child tabLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' result <- gtk_notebook_prepend_page notebook' child' maybeTabLabel touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookPrependPageMethodInfo instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo NotebookPrependPageMethodInfo a signature where overloadedMethod _ = notebookPrependPage #endif -- method Notebook::prepend_page_menu -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkWidget to use as the contents of the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkWidget to be used as the label\n for the page, or %NULL to use the default label, \8220page N\8221", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the widget to use as a label for the\n page-switch menu, if that is enabled. If %NULL, and @tab_label\n is a #GtkLabel or %NULL, then the menu label will be a newly\n created label with the same text as @tab_label; if @tab_label\n is not a #GtkLabel, @menu_label must be specified if the\n page-switch menu is to be used.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- menu_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO Int32 {- | Prepends a page to /@notebook@/, specifying the widget to use as the label in the popup menu. -} notebookPrependPageMenu :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the 'GI.Gtk.Objects.Widget.Widget' to use as the contents of the page -} -> Maybe (c) {- ^ /@tabLabel@/: the 'GI.Gtk.Objects.Widget.Widget' to be used as the label for the page, or 'Nothing' to use the default label, “page N” -} -> Maybe (d) {- ^ /@menuLabel@/: the widget to use as a label for the page-switch menu, if that is enabled. If 'Nothing', and /@tabLabel@/ is a 'GI.Gtk.Objects.Label.Label' or 'Nothing', then the menu label will be a newly created label with the same text as /@tabLabel@/; if /@tabLabel@/ is not a 'GI.Gtk.Objects.Label.Label', /@menuLabel@/ must be specified if the page-switch menu is to be used. -} -> m Int32 {- ^ __Returns:__ the index (starting from 0) of the prepended page in the notebook, or -1 if function fails -} notebookPrependPageMenu notebook child tabLabel menuLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' maybeMenuLabel <- case menuLabel of Nothing -> return nullPtr Just jMenuLabel -> do jMenuLabel' <- unsafeManagedPtrCastPtr jMenuLabel return jMenuLabel' result <- gtk_notebook_prepend_page_menu notebook' child' maybeTabLabel maybeMenuLabel touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr whenJust menuLabel touchManagedPtr return result #if ENABLE_OVERLOADING data NotebookPrependPageMenuMethodInfo instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => O.MethodInfo NotebookPrependPageMenuMethodInfo a signature where overloadedMethod _ = notebookPrependPageMenu #endif -- method Notebook::prev_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) IO () {- | Switches to the previous page. Nothing happens if the current page is the first page. -} notebookPrevPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> m () notebookPrevPage notebook = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_prev_page notebook' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookPrevPageMethodInfo instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookPrevPageMethodInfo a signature where overloadedMethod _ = notebookPrevPage #endif -- method Notebook::remove_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of a notebook page, starting\n from 0. If -1, the last page will be removed.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Int32 -> -- page_num : TBasicType TInt IO () {- | Removes a page from the notebook given its index in the notebook. -} notebookRemovePage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Int32 {- ^ /@pageNum@/: the index of a notebook page, starting from 0. If -1, the last page will be removed. -} -> m () notebookRemovePage notebook pageNum = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_remove_page notebook' pageNum touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookRemovePageMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookRemovePageMethodInfo a signature where overloadedMethod _ = notebookRemovePage #endif -- method Notebook::reorder_child -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child to move", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new position, or -1 to move to the end", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Int32 -> -- position : TBasicType TInt IO () {- | Reorders the page containing /@child@/, so that it appears in position /@position@/. If /@position@/ is greater than or equal to the number of children in the list or negative, /@child@/ will be moved to the end of the list. -} notebookReorderChild :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the child to move -} -> Int32 {- ^ /@position@/: the new position, or -1 to move to the end -} -> m () notebookReorderChild notebook child position = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child gtk_notebook_reorder_child notebook' child' position touchManagedPtr notebook touchManagedPtr child return () #if ENABLE_OVERLOADING data NotebookReorderChildMethodInfo instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookReorderChildMethodInfo a signature where overloadedMethod _ = notebookReorderChild #endif -- method Notebook::set_action_widget -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface (Name {namespace = "Gtk", name = "PackType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pack type of the action widget", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- widget : TInterface (Name {namespace = "Gtk", name = "Widget"}) CUInt -> -- pack_type : TInterface (Name {namespace = "Gtk", name = "PackType"}) IO () {- | Sets /@widget@/ as one of the action widgets. Depending on the pack type the widget will be placed before or after the tabs. You can use a 'GI.Gtk.Objects.Box.Box' if you need to pack more than one widget on the same side. Note that action widgets are “internal” children of the notebook and thus not included in the list returned from 'GI.Gtk.Objects.Container.containerForeach'. /Since: 2.20/ -} notebookSetActionWidget :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@widget@/: a 'GI.Gtk.Objects.Widget.Widget' -} -> Gtk.Enums.PackType {- ^ /@packType@/: pack type of the action widget -} -> m () notebookSetActionWidget notebook widget packType = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook widget' <- unsafeManagedPtrCastPtr widget let packType' = (fromIntegral . fromEnum) packType gtk_notebook_set_action_widget notebook' widget' packType' touchManagedPtr notebook touchManagedPtr widget return () #if ENABLE_OVERLOADING data NotebookSetActionWidgetMethodInfo instance (signature ~ (b -> Gtk.Enums.PackType -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookSetActionWidgetMethodInfo a signature where overloadedMethod _ = notebookSetActionWidget #endif -- method Notebook::set_current_page -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "index of the page to switch to, starting from 0.\n If negative, the last page will be used. If greater\n than the number of pages in the notebook, nothing\n will be done.", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Int32 -> -- page_num : TBasicType TInt IO () {- | Switches to the page number /@pageNum@/. Note that due to historical reasons, GtkNotebook refuses to switch to a page unless the child widget is visible. Therefore, it is recommended to show child widgets before adding them to a notebook. -} notebookSetCurrentPage :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Int32 {- ^ /@pageNum@/: index of the page to switch to, starting from 0. If negative, the last page will be used. If greater than the number of pages in the notebook, nothing will be done. -} -> m () notebookSetCurrentPage notebook pageNum = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook gtk_notebook_set_current_page notebook' pageNum touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookSetCurrentPageMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetCurrentPageMethodInfo a signature where overloadedMethod _ = notebookSetCurrentPage #endif -- method Notebook::set_group_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the name of the notebook group,\n or %NULL to unset it", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CString -> -- group_name : TBasicType TUTF8 IO () {- | Sets a group name for /@notebook@/. Notebooks with the same name will be able to exchange tabs via drag and drop. A notebook with a 'Nothing' group name will not be able to exchange tabs with any other notebook. /Since: 2.24/ -} notebookSetGroupName :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Maybe (T.Text) {- ^ /@groupName@/: the name of the notebook group, or 'Nothing' to unset it -} -> m () notebookSetGroupName notebook groupName = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook maybeGroupName <- case groupName of Nothing -> return nullPtr Just jGroupName -> do jGroupName' <- textToCString jGroupName return jGroupName' gtk_notebook_set_group_name notebook' maybeGroupName touchManagedPtr notebook freeMem maybeGroupName return () #if ENABLE_OVERLOADING data NotebookSetGroupNameMethodInfo instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetGroupNameMethodInfo a signature where overloadedMethod _ = notebookSetGroupName #endif -- method Notebook::set_menu_label -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the menu label, or %NULL for default", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- menu_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO () {- | Changes the menu label for the page containing /@child@/. -} notebookSetMenuLabel :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the child widget -} -> Maybe (c) {- ^ /@menuLabel@/: the menu label, or 'Nothing' for default -} -> m () notebookSetMenuLabel notebook child menuLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeMenuLabel <- case menuLabel of Nothing -> return nullPtr Just jMenuLabel -> do jMenuLabel' <- unsafeManagedPtrCastPtr jMenuLabel return jMenuLabel' gtk_notebook_set_menu_label notebook' child' maybeMenuLabel touchManagedPtr notebook touchManagedPtr child whenJust menuLabel touchManagedPtr return () #if ENABLE_OVERLOADING data NotebookSetMenuLabelMethodInfo instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo NotebookSetMenuLabelMethodInfo a signature where overloadedMethod _ = notebookSetMenuLabel #endif -- method Notebook::set_menu_label_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the child widget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label text", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) CString -> -- menu_text : TBasicType TUTF8 IO () {- | Creates a new label and sets it as the menu label of /@child@/. -} notebookSetMenuLabelText :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the child widget -} -> T.Text {- ^ /@menuText@/: the label text -} -> m () notebookSetMenuLabelText notebook child menuText = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child menuText' <- textToCString menuText gtk_notebook_set_menu_label_text notebook' child' menuText' touchManagedPtr notebook touchManagedPtr child freeMem menuText' return () #if ENABLE_OVERLOADING data NotebookSetMenuLabelTextMethodInfo instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookSetMenuLabelTextMethodInfo a signature where overloadedMethod _ = notebookSetMenuLabelText #endif -- method Notebook::set_scrollable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if scroll arrows should be added", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CInt -> -- scrollable : TBasicType TBoolean IO () {- | Sets whether the tab label area will have arrows for scrolling if there are too many tabs to fit in the area. -} notebookSetScrollable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Bool {- ^ /@scrollable@/: 'True' if scroll arrows should be added -} -> m () notebookSetScrollable notebook scrollable = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook let scrollable' = (fromIntegral . fromEnum) scrollable gtk_notebook_set_scrollable notebook' scrollable' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookSetScrollableMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetScrollableMethodInfo a signature where overloadedMethod _ = notebookSetScrollable #endif -- method Notebook::set_show_border -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a bevel should be drawn around the notebook", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CInt -> -- show_border : TBasicType TBoolean IO () {- | Sets whether a bevel will be drawn around the notebook pages. This only has a visual effect when the tabs are not shown. See 'GI.Gtk.Objects.Notebook.notebookSetShowTabs'. -} notebookSetShowBorder :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Bool {- ^ /@showBorder@/: 'True' if a bevel should be drawn around the notebook -} -> m () notebookSetShowBorder notebook showBorder = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook let showBorder' = (fromIntegral . fromEnum) showBorder gtk_notebook_set_show_border notebook' showBorder' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookSetShowBorderMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetShowBorderMethodInfo a signature where overloadedMethod _ = notebookSetShowBorder #endif -- method Notebook::set_show_tabs -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the tabs should be shown", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CInt -> -- show_tabs : TBasicType TBoolean IO () {- | Sets whether to show the tabs for the notebook or not. -} notebookSetShowTabs :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> Bool {- ^ /@showTabs@/: 'True' if the tabs should be shown -} -> m () notebookSetShowTabs notebook showTabs = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook let showTabs' = (fromIntegral . fromEnum) showTabs gtk_notebook_set_show_tabs notebook' showTabs' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookSetShowTabsMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetShowTabsMethodInfo a signature where overloadedMethod _ = notebookSetShowTabs #endif -- method Notebook::set_tab_detachable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the tab is detachable or not", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) CInt -> -- detachable : TBasicType TBoolean IO () {- | Sets whether the tab can be detached from /@notebook@/ to another notebook or widget. Note that 2 notebooks must share a common group identificator (see 'GI.Gtk.Objects.Notebook.notebookSetGroupName') to allow automatic tabs interchange between them. If you want a widget to interact with a notebook through DnD (i.e.: accept dragged tabs from it) it must be set as a drop destination and accept the target “GTK_NOTEBOOK_TAB”. The notebook will fill the selection with a GtkWidget** pointing to the child widget that corresponds to the dropped tab. Note that you should use 'GI.Gtk.Objects.Notebook.notebookDetachTab' instead of 'GI.Gtk.Objects.Container.containerRemove' if you want to remove the tab from the source notebook as part of accepting a drop. Otherwise, the source notebook will think that the dragged tab was removed from underneath the ongoing drag operation, and will initiate a drag cancel animation. === /C code/ > > static void > on_drag_data_received (GtkWidget *widget, > GdkDragContext *context, > gint x, > gint y, > GtkSelectionData *data, > guint info, > guint time, > gpointer user_data) > { > GtkWidget *notebook; > GtkWidget **child; > > notebook = gtk_drag_get_source_widget (context); > child = (void*) gtk_selection_data_get_data (data); > > // process_widget (*child); > > gtk_notebook_detach_tab (GTK_NOTEBOOK (notebook), *child); > } If you want a notebook to accept drags from other widgets, you will have to set your own DnD code to do it. /Since: 2.10/ -} notebookSetTabDetachable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a child 'GI.Gtk.Objects.Widget.Widget' -} -> Bool {- ^ /@detachable@/: whether the tab is detachable or not -} -> m () notebookSetTabDetachable notebook child detachable = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child let detachable' = (fromIntegral . fromEnum) detachable gtk_notebook_set_tab_detachable notebook' child' detachable' touchManagedPtr notebook touchManagedPtr child return () #if ENABLE_OVERLOADING data NotebookSetTabDetachableMethodInfo instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookSetTabDetachableMethodInfo a signature where overloadedMethod _ = notebookSetTabDetachable #endif -- method Notebook::set_tab_label -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the tab label widget to use, or %NULL\n for default tab label", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) Ptr Gtk.Widget.Widget -> -- tab_label : TInterface (Name {namespace = "Gtk", name = "Widget"}) IO () {- | Changes the tab label for /@child@/. If 'Nothing' is specified for /@tabLabel@/, then the page will have the label “page N”. -} notebookSetTabLabel :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the page -} -> Maybe (c) {- ^ /@tabLabel@/: the tab label widget to use, or 'Nothing' for default tab label -} -> m () notebookSetTabLabel notebook child tabLabel = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child maybeTabLabel <- case tabLabel of Nothing -> return nullPtr Just jTabLabel -> do jTabLabel' <- unsafeManagedPtrCastPtr jTabLabel return jTabLabel' gtk_notebook_set_tab_label notebook' child' maybeTabLabel touchManagedPtr notebook touchManagedPtr child whenJust tabLabel touchManagedPtr return () #if ENABLE_OVERLOADING data NotebookSetTabLabelMethodInfo instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo NotebookSetTabLabelMethodInfo a signature where overloadedMethod _ = notebookSetTabLabel #endif -- method Notebook::set_tab_label_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the page", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the label text", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) CString -> -- tab_text : TBasicType TUTF8 IO () {- | Creates a new label and sets it as the tab label for the page containing /@child@/. -} notebookSetTabLabelText :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: the page -} -> T.Text {- ^ /@tabText@/: the label text -} -> m () notebookSetTabLabelText notebook child tabText = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child tabText' <- textToCString tabText gtk_notebook_set_tab_label_text notebook' child' tabText' touchManagedPtr notebook touchManagedPtr child freeMem tabText' return () #if ENABLE_OVERLOADING data NotebookSetTabLabelTextMethodInfo instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookSetTabLabelTextMethodInfo a signature where overloadedMethod _ = notebookSetTabLabelText #endif -- method Notebook::set_tab_pos -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface (Name {namespace = "Gtk", name = "PositionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the edge to draw the tabs at", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) CUInt -> -- pos : TInterface (Name {namespace = "Gtk", name = "PositionType"}) IO () {- | Sets the edge at which the tabs for switching pages in the notebook are drawn. -} notebookSetTabPos :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook'. -} -> Gtk.Enums.PositionType {- ^ /@pos@/: the edge to draw the tabs at -} -> m () notebookSetTabPos notebook pos = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook let pos' = (fromIntegral . fromEnum) pos gtk_notebook_set_tab_pos notebook' pos' touchManagedPtr notebook return () #if ENABLE_OVERLOADING data NotebookSetTabPosMethodInfo instance (signature ~ (Gtk.Enums.PositionType -> m ()), MonadIO m, IsNotebook a) => O.MethodInfo NotebookSetTabPosMethodInfo a signature where overloadedMethod _ = notebookSetTabPos #endif -- method Notebook::set_tab_reorderable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "notebook", argType = TInterface (Name {namespace = "Gtk", name = "Notebook"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkNotebook", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "Widget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child #GtkWidget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the tab is reorderable or not", sinceVersion = Nothing}, 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 -> -- notebook : TInterface (Name {namespace = "Gtk", name = "Notebook"}) Ptr Gtk.Widget.Widget -> -- child : TInterface (Name {namespace = "Gtk", name = "Widget"}) CInt -> -- reorderable : TBasicType TBoolean IO () {- | Sets whether the notebook tab can be reordered via drag and drop or not. /Since: 2.10/ -} notebookSetTabReorderable :: (B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => a {- ^ /@notebook@/: a 'GI.Gtk.Objects.Notebook.Notebook' -} -> b {- ^ /@child@/: a child 'GI.Gtk.Objects.Widget.Widget' -} -> Bool {- ^ /@reorderable@/: whether the tab is reorderable or not -} -> m () notebookSetTabReorderable notebook child reorderable = liftIO $ do notebook' <- unsafeManagedPtrCastPtr notebook child' <- unsafeManagedPtrCastPtr child let reorderable' = (fromIntegral . fromEnum) reorderable gtk_notebook_set_tab_reorderable notebook' child' reorderable' touchManagedPtr notebook touchManagedPtr child return () #if ENABLE_OVERLOADING data NotebookSetTabReorderableMethodInfo instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.MethodInfo NotebookSetTabReorderableMethodInfo a signature where overloadedMethod _ = notebookSetTabReorderable #endif