{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Notebook
(
Notebook(..) ,
IsNotebook ,
toNotebook ,
#if defined(ENABLE_OVERLOADING)
ResolveNotebookMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NotebookAppendPageMethodInfo ,
#endif
notebookAppendPage ,
#if defined(ENABLE_OVERLOADING)
NotebookAppendPageMenuMethodInfo ,
#endif
notebookAppendPageMenu ,
#if defined(ENABLE_OVERLOADING)
NotebookDetachTabMethodInfo ,
#endif
notebookDetachTab ,
#if defined(ENABLE_OVERLOADING)
NotebookGetActionWidgetMethodInfo ,
#endif
notebookGetActionWidget ,
#if defined(ENABLE_OVERLOADING)
NotebookGetCurrentPageMethodInfo ,
#endif
notebookGetCurrentPage ,
#if defined(ENABLE_OVERLOADING)
NotebookGetGroupNameMethodInfo ,
#endif
notebookGetGroupName ,
#if defined(ENABLE_OVERLOADING)
NotebookGetMenuLabelMethodInfo ,
#endif
notebookGetMenuLabel ,
#if defined(ENABLE_OVERLOADING)
NotebookGetMenuLabelTextMethodInfo ,
#endif
notebookGetMenuLabelText ,
#if defined(ENABLE_OVERLOADING)
NotebookGetNPagesMethodInfo ,
#endif
notebookGetNPages ,
#if defined(ENABLE_OVERLOADING)
NotebookGetNthPageMethodInfo ,
#endif
notebookGetNthPage ,
#if defined(ENABLE_OVERLOADING)
NotebookGetScrollableMethodInfo ,
#endif
notebookGetScrollable ,
#if defined(ENABLE_OVERLOADING)
NotebookGetShowBorderMethodInfo ,
#endif
notebookGetShowBorder ,
#if defined(ENABLE_OVERLOADING)
NotebookGetShowTabsMethodInfo ,
#endif
notebookGetShowTabs ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabDetachableMethodInfo ,
#endif
notebookGetTabDetachable ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabHborderMethodInfo ,
#endif
notebookGetTabHborder ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabLabelMethodInfo ,
#endif
notebookGetTabLabel ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabLabelTextMethodInfo ,
#endif
notebookGetTabLabelText ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabPosMethodInfo ,
#endif
notebookGetTabPos ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabReorderableMethodInfo ,
#endif
notebookGetTabReorderable ,
#if defined(ENABLE_OVERLOADING)
NotebookGetTabVborderMethodInfo ,
#endif
notebookGetTabVborder ,
#if defined(ENABLE_OVERLOADING)
NotebookInsertPageMethodInfo ,
#endif
notebookInsertPage ,
#if defined(ENABLE_OVERLOADING)
NotebookInsertPageMenuMethodInfo ,
#endif
notebookInsertPageMenu ,
notebookNew ,
#if defined(ENABLE_OVERLOADING)
NotebookNextPageMethodInfo ,
#endif
notebookNextPage ,
#if defined(ENABLE_OVERLOADING)
NotebookPageNumMethodInfo ,
#endif
notebookPageNum ,
#if defined(ENABLE_OVERLOADING)
NotebookPopupDisableMethodInfo ,
#endif
notebookPopupDisable ,
#if defined(ENABLE_OVERLOADING)
NotebookPopupEnableMethodInfo ,
#endif
notebookPopupEnable ,
#if defined(ENABLE_OVERLOADING)
NotebookPrependPageMethodInfo ,
#endif
notebookPrependPage ,
#if defined(ENABLE_OVERLOADING)
NotebookPrependPageMenuMethodInfo ,
#endif
notebookPrependPageMenu ,
#if defined(ENABLE_OVERLOADING)
NotebookPrevPageMethodInfo ,
#endif
notebookPrevPage ,
#if defined(ENABLE_OVERLOADING)
NotebookRemovePageMethodInfo ,
#endif
notebookRemovePage ,
#if defined(ENABLE_OVERLOADING)
NotebookReorderChildMethodInfo ,
#endif
notebookReorderChild ,
#if defined(ENABLE_OVERLOADING)
NotebookSetActionWidgetMethodInfo ,
#endif
notebookSetActionWidget ,
#if defined(ENABLE_OVERLOADING)
NotebookSetCurrentPageMethodInfo ,
#endif
notebookSetCurrentPage ,
#if defined(ENABLE_OVERLOADING)
NotebookSetGroupNameMethodInfo ,
#endif
notebookSetGroupName ,
#if defined(ENABLE_OVERLOADING)
NotebookSetMenuLabelMethodInfo ,
#endif
notebookSetMenuLabel ,
#if defined(ENABLE_OVERLOADING)
NotebookSetMenuLabelTextMethodInfo ,
#endif
notebookSetMenuLabelText ,
#if defined(ENABLE_OVERLOADING)
NotebookSetScrollableMethodInfo ,
#endif
notebookSetScrollable ,
#if defined(ENABLE_OVERLOADING)
NotebookSetShowBorderMethodInfo ,
#endif
notebookSetShowBorder ,
#if defined(ENABLE_OVERLOADING)
NotebookSetShowTabsMethodInfo ,
#endif
notebookSetShowTabs ,
#if defined(ENABLE_OVERLOADING)
NotebookSetTabDetachableMethodInfo ,
#endif
notebookSetTabDetachable ,
#if defined(ENABLE_OVERLOADING)
NotebookSetTabLabelMethodInfo ,
#endif
notebookSetTabLabel ,
#if defined(ENABLE_OVERLOADING)
NotebookSetTabLabelTextMethodInfo ,
#endif
notebookSetTabLabelText ,
#if defined(ENABLE_OVERLOADING)
NotebookSetTabPosMethodInfo ,
#endif
notebookSetTabPos ,
#if defined(ENABLE_OVERLOADING)
NotebookSetTabReorderableMethodInfo ,
#endif
notebookSetTabReorderable ,
#if defined(ENABLE_OVERLOADING)
NotebookEnablePopupPropertyInfo ,
#endif
constructNotebookEnablePopup ,
getNotebookEnablePopup ,
#if defined(ENABLE_OVERLOADING)
notebookEnablePopup ,
#endif
setNotebookEnablePopup ,
#if defined(ENABLE_OVERLOADING)
NotebookGroupNamePropertyInfo ,
#endif
clearNotebookGroupName ,
constructNotebookGroupName ,
getNotebookGroupName ,
#if defined(ENABLE_OVERLOADING)
notebookGroupName ,
#endif
setNotebookGroupName ,
#if defined(ENABLE_OVERLOADING)
NotebookPagePropertyInfo ,
#endif
constructNotebookPage ,
getNotebookPage ,
#if defined(ENABLE_OVERLOADING)
notebookPage ,
#endif
setNotebookPage ,
#if defined(ENABLE_OVERLOADING)
NotebookScrollablePropertyInfo ,
#endif
constructNotebookScrollable ,
getNotebookScrollable ,
#if defined(ENABLE_OVERLOADING)
notebookScrollable ,
#endif
setNotebookScrollable ,
#if defined(ENABLE_OVERLOADING)
NotebookShowBorderPropertyInfo ,
#endif
constructNotebookShowBorder ,
getNotebookShowBorder ,
#if defined(ENABLE_OVERLOADING)
notebookShowBorder ,
#endif
setNotebookShowBorder ,
#if defined(ENABLE_OVERLOADING)
NotebookShowTabsPropertyInfo ,
#endif
constructNotebookShowTabs ,
getNotebookShowTabs ,
#if defined(ENABLE_OVERLOADING)
notebookShowTabs ,
#endif
setNotebookShowTabs ,
#if defined(ENABLE_OVERLOADING)
NotebookTabPosPropertyInfo ,
#endif
constructNotebookTabPos ,
getNotebookTabPos ,
#if defined(ENABLE_OVERLOADING)
notebookTabPos ,
#endif
setNotebookTabPos ,
NotebookChangeCurrentPageCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookChangeCurrentPageSignalInfo ,
#endif
afterNotebookChangeCurrentPage ,
onNotebookChangeCurrentPage ,
NotebookCreateWindowCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookCreateWindowSignalInfo ,
#endif
afterNotebookCreateWindow ,
onNotebookCreateWindow ,
NotebookFocusTabCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookFocusTabSignalInfo ,
#endif
afterNotebookFocusTab ,
onNotebookFocusTab ,
NotebookMoveFocusOutCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookMoveFocusOutSignalInfo ,
#endif
afterNotebookMoveFocusOut ,
onNotebookMoveFocusOut ,
NotebookPageAddedCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookPageAddedSignalInfo ,
#endif
afterNotebookPageAdded ,
onNotebookPageAdded ,
NotebookPageRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookPageRemovedSignalInfo ,
#endif
afterNotebookPageRemoved ,
onNotebookPageRemoved ,
NotebookPageReorderedCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookPageReorderedSignalInfo ,
#endif
afterNotebookPageReordered ,
onNotebookPageReordered ,
NotebookReorderTabCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookReorderTabSignalInfo ,
#endif
afterNotebookReorderTab ,
onNotebookReorderTab ,
NotebookSelectPageCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookSelectPageSignalInfo ,
#endif
afterNotebookSelectPage ,
onNotebookSelectPage ,
NotebookSwitchPageCallback ,
#if defined(ENABLE_OVERLOADING)
NotebookSwitchPageSignalInfo ,
#endif
afterNotebookSwitchPage ,
onNotebookSwitchPage ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
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
newtype Notebook = Notebook (SP.ManagedPtr Notebook)
deriving (Notebook -> Notebook -> Bool
(Notebook -> Notebook -> Bool)
-> (Notebook -> Notebook -> Bool) -> Eq Notebook
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Notebook -> Notebook -> Bool
== :: Notebook -> Notebook -> Bool
$c/= :: Notebook -> Notebook -> Bool
/= :: Notebook -> Notebook -> Bool
Eq)
instance SP.ManagedPtrNewtype Notebook where
toManagedPtr :: Notebook -> ManagedPtr Notebook
toManagedPtr (Notebook ManagedPtr Notebook
p) = ManagedPtr Notebook
p
foreign import ccall "gtk_notebook_get_type"
c_gtk_notebook_get_type :: IO B.Types.GType
instance B.Types.TypedObject Notebook where
glibType :: IO GType
glibType = IO GType
c_gtk_notebook_get_type
instance B.Types.GObject Notebook
class (SP.GObject o, O.IsDescendantOf Notebook o) => IsNotebook o
instance (SP.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]
toNotebook :: (MIO.MonadIO m, IsNotebook o) => o -> m Notebook
toNotebook :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> m Notebook
toNotebook = IO Notebook -> m Notebook
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Notebook -> m Notebook)
-> (o -> IO Notebook) -> o -> m Notebook
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Notebook -> Notebook) -> o -> IO Notebook
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Notebook -> Notebook
Notebook
instance B.GValue.IsGValue (Maybe Notebook) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_notebook_get_type
gvalueSet_ :: Ptr GValue -> Maybe Notebook -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Notebook
P.Nothing = Ptr GValue -> Ptr Notebook -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Notebook
forall a. Ptr a
FP.nullPtr :: FP.Ptr Notebook)
gvalueSet_ Ptr GValue
gv (P.Just Notebook
obj) = Notebook -> (Ptr Notebook -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Notebook
obj (Ptr GValue -> Ptr Notebook -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Notebook)
gvalueGet_ Ptr GValue
gv = do
Ptr Notebook
ptr <- Ptr GValue -> IO (Ptr Notebook)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Notebook)
if Ptr Notebook
ptr Ptr Notebook -> Ptr Notebook -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Notebook
forall a. Ptr a
FP.nullPtr
then Notebook -> Maybe Notebook
forall a. a -> Maybe a
P.Just (Notebook -> Maybe Notebook) -> IO Notebook -> IO (Maybe Notebook)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Notebook -> Notebook) -> Ptr Notebook -> IO Notebook
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Notebook -> Notebook
Notebook Ptr Notebook
ptr
else Maybe Notebook -> IO (Maybe Notebook)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Notebook
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveNotebookMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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.OverloadedMethod info Notebook p) => OL.IsLabel t (Notebook -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveNotebookMethod t Notebook, O.OverloadedMethod info Notebook p, R.HasField t Notebook p) => R.HasField t Notebook p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveNotebookMethod t Notebook, O.OverloadedMethodInfo info Notebook) => OL.IsLabel t (O.MethodProxy info Notebook) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type NotebookChangeCurrentPageCallback =
Int32
-> IO Bool
type C_NotebookChangeCurrentPageCallback =
Ptr Notebook ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_NotebookChangeCurrentPageCallback :: C_NotebookChangeCurrentPageCallback -> IO (FunPtr C_NotebookChangeCurrentPageCallback)
wrap_NotebookChangeCurrentPageCallback ::
GObject a => (a -> NotebookChangeCurrentPageCallback) ->
C_NotebookChangeCurrentPageCallback
wrap_NotebookChangeCurrentPageCallback :: forall a.
GObject a =>
(a -> NotebookChangeCurrentPageCallback)
-> C_NotebookChangeCurrentPageCallback
wrap_NotebookChangeCurrentPageCallback a -> NotebookChangeCurrentPageCallback
gi'cb Ptr Notebook
gi'selfPtr Int32
object Ptr ()
_ = do
Bool
result <- Ptr Notebook -> (Notebook -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO Bool) -> IO Bool)
-> (Notebook -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookChangeCurrentPageCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Int32
object
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onNotebookChangeCurrentPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookChangeCurrentPageCallback) -> m SignalHandlerId
onNotebookChangeCurrentPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookChangeCurrentPageCallback)
-> m SignalHandlerId
onNotebookChangeCurrentPage a
obj (?self::a) => NotebookChangeCurrentPageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookChangeCurrentPageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookChangeCurrentPageCallback
NotebookChangeCurrentPageCallback
cb
let wrapped' :: C_NotebookChangeCurrentPageCallback
wrapped' = (a -> NotebookChangeCurrentPageCallback)
-> C_NotebookChangeCurrentPageCallback
forall a.
GObject a =>
(a -> NotebookChangeCurrentPageCallback)
-> C_NotebookChangeCurrentPageCallback
wrap_NotebookChangeCurrentPageCallback a -> NotebookChangeCurrentPageCallback
wrapped
FunPtr C_NotebookChangeCurrentPageCallback
wrapped'' <- C_NotebookChangeCurrentPageCallback
-> IO (FunPtr C_NotebookChangeCurrentPageCallback)
mk_NotebookChangeCurrentPageCallback C_NotebookChangeCurrentPageCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookChangeCurrentPageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-current-page" FunPtr C_NotebookChangeCurrentPageCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookChangeCurrentPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookChangeCurrentPageCallback) -> m SignalHandlerId
afterNotebookChangeCurrentPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookChangeCurrentPageCallback)
-> m SignalHandlerId
afterNotebookChangeCurrentPage a
obj (?self::a) => NotebookChangeCurrentPageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookChangeCurrentPageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookChangeCurrentPageCallback
NotebookChangeCurrentPageCallback
cb
let wrapped' :: C_NotebookChangeCurrentPageCallback
wrapped' = (a -> NotebookChangeCurrentPageCallback)
-> C_NotebookChangeCurrentPageCallback
forall a.
GObject a =>
(a -> NotebookChangeCurrentPageCallback)
-> C_NotebookChangeCurrentPageCallback
wrap_NotebookChangeCurrentPageCallback a -> NotebookChangeCurrentPageCallback
wrapped
FunPtr C_NotebookChangeCurrentPageCallback
wrapped'' <- C_NotebookChangeCurrentPageCallback
-> IO (FunPtr C_NotebookChangeCurrentPageCallback)
mk_NotebookChangeCurrentPageCallback C_NotebookChangeCurrentPageCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookChangeCurrentPageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-current-page" FunPtr C_NotebookChangeCurrentPageCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookChangeCurrentPageSignalInfo
instance SignalInfo NotebookChangeCurrentPageSignalInfo where
type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookChangeCurrentPageCallback cb
cb'' <- mk_NotebookChangeCurrentPageCallback cb'
connectSignalFunPtr obj "change-current-page" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::change-current-page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:changeCurrentPage"})
#endif
type NotebookCreateWindowCallback =
Gtk.Widget.Widget
-> Int32
-> Int32
-> IO Notebook
type C_NotebookCreateWindowCallback =
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Int32 ->
Ptr () ->
IO (Ptr Notebook)
foreign import ccall "wrapper"
mk_NotebookCreateWindowCallback :: C_NotebookCreateWindowCallback -> IO (FunPtr C_NotebookCreateWindowCallback)
wrap_NotebookCreateWindowCallback ::
GObject a => (a -> NotebookCreateWindowCallback) ->
C_NotebookCreateWindowCallback
wrap_NotebookCreateWindowCallback :: forall a.
GObject a =>
(a -> NotebookCreateWindowCallback)
-> C_NotebookCreateWindowCallback
wrap_NotebookCreateWindowCallback a -> NotebookCreateWindowCallback
gi'cb Ptr Notebook
gi'selfPtr Ptr Widget
page Int32
x Int32
y Ptr ()
_ = do
Widget
page' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
page
Notebook
result <- Ptr Notebook -> (Notebook -> IO Notebook) -> IO Notebook
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO Notebook) -> IO Notebook)
-> (Notebook -> IO Notebook) -> IO Notebook
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookCreateWindowCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Widget
page' Int32
x Int32
y
Ptr Notebook
result' <- Notebook -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr Notebook
result
Ptr Notebook -> IO (Ptr Notebook)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Notebook
result'
onNotebookCreateWindow :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookCreateWindowCallback) -> m SignalHandlerId
onNotebookCreateWindow :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookCreateWindowCallback)
-> m SignalHandlerId
onNotebookCreateWindow a
obj (?self::a) => NotebookCreateWindowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookCreateWindowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookCreateWindowCallback
NotebookCreateWindowCallback
cb
let wrapped' :: C_NotebookCreateWindowCallback
wrapped' = (a -> NotebookCreateWindowCallback)
-> C_NotebookCreateWindowCallback
forall a.
GObject a =>
(a -> NotebookCreateWindowCallback)
-> C_NotebookCreateWindowCallback
wrap_NotebookCreateWindowCallback a -> NotebookCreateWindowCallback
wrapped
FunPtr C_NotebookCreateWindowCallback
wrapped'' <- C_NotebookCreateWindowCallback
-> IO (FunPtr C_NotebookCreateWindowCallback)
mk_NotebookCreateWindowCallback C_NotebookCreateWindowCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookCreateWindowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-window" FunPtr C_NotebookCreateWindowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookCreateWindow :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookCreateWindowCallback) -> m SignalHandlerId
afterNotebookCreateWindow :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookCreateWindowCallback)
-> m SignalHandlerId
afterNotebookCreateWindow a
obj (?self::a) => NotebookCreateWindowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookCreateWindowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookCreateWindowCallback
NotebookCreateWindowCallback
cb
let wrapped' :: C_NotebookCreateWindowCallback
wrapped' = (a -> NotebookCreateWindowCallback)
-> C_NotebookCreateWindowCallback
forall a.
GObject a =>
(a -> NotebookCreateWindowCallback)
-> C_NotebookCreateWindowCallback
wrap_NotebookCreateWindowCallback a -> NotebookCreateWindowCallback
wrapped
FunPtr C_NotebookCreateWindowCallback
wrapped'' <- C_NotebookCreateWindowCallback
-> IO (FunPtr C_NotebookCreateWindowCallback)
mk_NotebookCreateWindowCallback C_NotebookCreateWindowCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookCreateWindowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-window" FunPtr C_NotebookCreateWindowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookCreateWindowSignalInfo
instance SignalInfo NotebookCreateWindowSignalInfo where
type HaskellCallbackType NotebookCreateWindowSignalInfo = NotebookCreateWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookCreateWindowCallback cb
cb'' <- mk_NotebookCreateWindowCallback cb'
connectSignalFunPtr obj "create-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::create-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:createWindow"})
#endif
type NotebookFocusTabCallback =
Gtk.Enums.NotebookTab
-> IO Bool
type C_NotebookFocusTabCallback =
Ptr Notebook ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_NotebookFocusTabCallback :: C_NotebookFocusTabCallback -> IO (FunPtr C_NotebookFocusTabCallback)
wrap_NotebookFocusTabCallback ::
GObject a => (a -> NotebookFocusTabCallback) ->
C_NotebookFocusTabCallback
wrap_NotebookFocusTabCallback :: forall a.
GObject a =>
(a -> NotebookFocusTabCallback) -> C_NotebookFocusTabCallback
wrap_NotebookFocusTabCallback a -> NotebookFocusTabCallback
gi'cb Ptr Notebook
gi'selfPtr CUInt
object Ptr ()
_ = do
let object' :: NotebookTab
object' = (Int -> NotebookTab
forall a. Enum a => Int -> a
toEnum (Int -> NotebookTab) -> (CUInt -> Int) -> CUInt -> NotebookTab
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
object
Bool
result <- Ptr Notebook -> (Notebook -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO Bool) -> IO Bool)
-> (Notebook -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookFocusTabCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) NotebookTab
object'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onNotebookFocusTab :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookFocusTabCallback) -> m SignalHandlerId
onNotebookFocusTab :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookFocusTabCallback) -> m SignalHandlerId
onNotebookFocusTab a
obj (?self::a) => NotebookFocusTabCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookFocusTabCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookFocusTabCallback
NotebookFocusTabCallback
cb
let wrapped' :: C_NotebookFocusTabCallback
wrapped' = (a -> NotebookFocusTabCallback) -> C_NotebookFocusTabCallback
forall a.
GObject a =>
(a -> NotebookFocusTabCallback) -> C_NotebookFocusTabCallback
wrap_NotebookFocusTabCallback a -> NotebookFocusTabCallback
wrapped
FunPtr C_NotebookFocusTabCallback
wrapped'' <- C_NotebookFocusTabCallback
-> IO (FunPtr C_NotebookFocusTabCallback)
mk_NotebookFocusTabCallback C_NotebookFocusTabCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookFocusTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-tab" FunPtr C_NotebookFocusTabCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookFocusTab :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookFocusTabCallback) -> m SignalHandlerId
afterNotebookFocusTab :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookFocusTabCallback) -> m SignalHandlerId
afterNotebookFocusTab a
obj (?self::a) => NotebookFocusTabCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookFocusTabCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookFocusTabCallback
NotebookFocusTabCallback
cb
let wrapped' :: C_NotebookFocusTabCallback
wrapped' = (a -> NotebookFocusTabCallback) -> C_NotebookFocusTabCallback
forall a.
GObject a =>
(a -> NotebookFocusTabCallback) -> C_NotebookFocusTabCallback
wrap_NotebookFocusTabCallback a -> NotebookFocusTabCallback
wrapped
FunPtr C_NotebookFocusTabCallback
wrapped'' <- C_NotebookFocusTabCallback
-> IO (FunPtr C_NotebookFocusTabCallback)
mk_NotebookFocusTabCallback C_NotebookFocusTabCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookFocusTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-tab" FunPtr C_NotebookFocusTabCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookFocusTabSignalInfo
instance SignalInfo NotebookFocusTabSignalInfo where
type HaskellCallbackType NotebookFocusTabSignalInfo = NotebookFocusTabCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookFocusTabCallback cb
cb'' <- mk_NotebookFocusTabCallback cb'
connectSignalFunPtr obj "focus-tab" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::focus-tab"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:focusTab"})
#endif
type NotebookMoveFocusOutCallback =
Gtk.Enums.DirectionType
-> IO ()
type C_NotebookMoveFocusOutCallback =
Ptr Notebook ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_NotebookMoveFocusOutCallback :: C_NotebookMoveFocusOutCallback -> IO (FunPtr C_NotebookMoveFocusOutCallback)
wrap_NotebookMoveFocusOutCallback ::
GObject a => (a -> NotebookMoveFocusOutCallback) ->
C_NotebookMoveFocusOutCallback
wrap_NotebookMoveFocusOutCallback :: forall a.
GObject a =>
(a -> NotebookMoveFocusOutCallback)
-> C_NotebookMoveFocusOutCallback
wrap_NotebookMoveFocusOutCallback a -> NotebookMoveFocusOutCallback
gi'cb Ptr Notebook
gi'selfPtr CUInt
object Ptr ()
_ = do
let object' :: DirectionType
object' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
object
Ptr Notebook -> (Notebook -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO ()) -> IO ()) -> (Notebook -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookMoveFocusOutCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) DirectionType
object'
onNotebookMoveFocusOut :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookMoveFocusOutCallback) -> m SignalHandlerId
onNotebookMoveFocusOut :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookMoveFocusOutCallback)
-> m SignalHandlerId
onNotebookMoveFocusOut a
obj (?self::a) => NotebookMoveFocusOutCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookMoveFocusOutCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookMoveFocusOutCallback
NotebookMoveFocusOutCallback
cb
let wrapped' :: C_NotebookMoveFocusOutCallback
wrapped' = (a -> NotebookMoveFocusOutCallback)
-> C_NotebookMoveFocusOutCallback
forall a.
GObject a =>
(a -> NotebookMoveFocusOutCallback)
-> C_NotebookMoveFocusOutCallback
wrap_NotebookMoveFocusOutCallback a -> NotebookMoveFocusOutCallback
wrapped
FunPtr C_NotebookMoveFocusOutCallback
wrapped'' <- C_NotebookMoveFocusOutCallback
-> IO (FunPtr C_NotebookMoveFocusOutCallback)
mk_NotebookMoveFocusOutCallback C_NotebookMoveFocusOutCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookMoveFocusOutCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus-out" FunPtr C_NotebookMoveFocusOutCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookMoveFocusOut :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookMoveFocusOutCallback) -> m SignalHandlerId
afterNotebookMoveFocusOut :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookMoveFocusOutCallback)
-> m SignalHandlerId
afterNotebookMoveFocusOut a
obj (?self::a) => NotebookMoveFocusOutCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookMoveFocusOutCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookMoveFocusOutCallback
NotebookMoveFocusOutCallback
cb
let wrapped' :: C_NotebookMoveFocusOutCallback
wrapped' = (a -> NotebookMoveFocusOutCallback)
-> C_NotebookMoveFocusOutCallback
forall a.
GObject a =>
(a -> NotebookMoveFocusOutCallback)
-> C_NotebookMoveFocusOutCallback
wrap_NotebookMoveFocusOutCallback a -> NotebookMoveFocusOutCallback
wrapped
FunPtr C_NotebookMoveFocusOutCallback
wrapped'' <- C_NotebookMoveFocusOutCallback
-> IO (FunPtr C_NotebookMoveFocusOutCallback)
mk_NotebookMoveFocusOutCallback C_NotebookMoveFocusOutCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookMoveFocusOutCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus-out" FunPtr C_NotebookMoveFocusOutCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookMoveFocusOutSignalInfo
instance SignalInfo NotebookMoveFocusOutSignalInfo where
type HaskellCallbackType NotebookMoveFocusOutSignalInfo = NotebookMoveFocusOutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookMoveFocusOutCallback cb
cb'' <- mk_NotebookMoveFocusOutCallback cb'
connectSignalFunPtr obj "move-focus-out" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::move-focus-out"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:moveFocusOut"})
#endif
type NotebookPageAddedCallback =
Gtk.Widget.Widget
-> Word32
-> IO ()
type C_NotebookPageAddedCallback =
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_NotebookPageAddedCallback :: C_NotebookPageAddedCallback -> IO (FunPtr C_NotebookPageAddedCallback)
wrap_NotebookPageAddedCallback ::
GObject a => (a -> NotebookPageAddedCallback) ->
C_NotebookPageAddedCallback
wrap_NotebookPageAddedCallback :: forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageAddedCallback a -> NotebookPageAddedCallback
gi'cb Ptr Notebook
gi'selfPtr Ptr Widget
child Word32
pageNum Ptr ()
_ = do
Widget
child' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
child
Ptr Notebook -> (Notebook -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO ()) -> IO ()) -> (Notebook -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookPageAddedCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Widget
child' Word32
pageNum
onNotebookPageAdded :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageAddedCallback) -> m SignalHandlerId
onNotebookPageAdded :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookPageAddedCallback) -> m SignalHandlerId
onNotebookPageAdded a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageAddedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageAddedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-added" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookPageAdded :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageAddedCallback) -> m SignalHandlerId
afterNotebookPageAdded :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookPageAddedCallback) -> m SignalHandlerId
afterNotebookPageAdded a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageAddedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageAddedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-added" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookPageAddedSignalInfo
instance SignalInfo NotebookPageAddedSignalInfo where
type HaskellCallbackType NotebookPageAddedSignalInfo = NotebookPageAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookPageAddedCallback cb
cb'' <- mk_NotebookPageAddedCallback cb'
connectSignalFunPtr obj "page-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::page-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:pageAdded"})
#endif
type =
Gtk.Widget.Widget
-> Word32
-> IO ()
type =
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_NotebookPageRemovedCallback -> IO (FunPtr C_NotebookPageRemovedCallback)
wrap_NotebookPageRemovedCallback ::
GObject a => (a -> NotebookPageRemovedCallback) ->
C_NotebookPageRemovedCallback
a -> NotebookPageAddedCallback
gi'cb Ptr Notebook
gi'selfPtr Ptr Widget
child Word32
pageNum Ptr ()
_ = do
Widget
child' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
child
Ptr Notebook -> (Notebook -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO ()) -> IO ()) -> (Notebook -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookPageAddedCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Widget
child' Word32
pageNum
onNotebookPageRemoved :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageRemovedCallback) -> m SignalHandlerId
a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageRemovedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageRemovedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-removed" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookPageRemoved :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageRemovedCallback) -> m SignalHandlerId
a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageRemovedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageRemovedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-removed" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookPageRemovedSignalInfo
instance SignalInfo NotebookPageRemovedSignalInfo where
type HaskellCallbackType NotebookPageRemovedSignalInfo = NotebookPageRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookPageRemovedCallback cb
cb'' <- mk_NotebookPageRemovedCallback cb'
connectSignalFunPtr obj "page-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::page-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:pageRemoved"})
#endif
type =
Gtk.Widget.Widget
-> Word32
-> IO ()
type =
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_NotebookPageReorderedCallback -> IO (FunPtr C_NotebookPageReorderedCallback)
wrap_NotebookPageReorderedCallback ::
GObject a => (a -> NotebookPageReorderedCallback) ->
C_NotebookPageReorderedCallback
a -> NotebookPageAddedCallback
gi'cb Ptr Notebook
gi'selfPtr Ptr Widget
child Word32
pageNum Ptr ()
_ = do
Widget
child' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
child
Ptr Notebook -> (Notebook -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO ()) -> IO ()) -> (Notebook -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookPageAddedCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Widget
child' Word32
pageNum
onNotebookPageReordered :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageReorderedCallback) -> m SignalHandlerId
a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageReorderedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageReorderedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-reordered" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookPageReordered :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookPageReorderedCallback) -> m SignalHandlerId
a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookPageReorderedCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookPageReorderedCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-reordered" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookPageReorderedSignalInfo
instance SignalInfo NotebookPageReorderedSignalInfo where
type HaskellCallbackType NotebookPageReorderedSignalInfo = NotebookPageReorderedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookPageReorderedCallback cb
cb'' <- mk_NotebookPageReorderedCallback cb'
connectSignalFunPtr obj "page-reordered" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::page-reordered"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:pageReordered"})
#endif
type NotebookReorderTabCallback =
Gtk.Enums.DirectionType
-> Bool
-> IO Bool
type C_NotebookReorderTabCallback =
Ptr Notebook ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_NotebookReorderTabCallback :: C_NotebookReorderTabCallback -> IO (FunPtr C_NotebookReorderTabCallback)
wrap_NotebookReorderTabCallback ::
GObject a => (a -> NotebookReorderTabCallback) ->
C_NotebookReorderTabCallback
wrap_NotebookReorderTabCallback :: forall a.
GObject a =>
(a -> NotebookReorderTabCallback) -> C_NotebookReorderTabCallback
wrap_NotebookReorderTabCallback a -> NotebookReorderTabCallback
gi'cb Ptr Notebook
gi'selfPtr CUInt
object CInt
p0 Ptr ()
_ = do
let object' :: DirectionType
object' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
object
let p0' :: Bool
p0' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
p0
Bool
result <- Ptr Notebook -> (Notebook -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO Bool) -> IO Bool)
-> (Notebook -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookReorderTabCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) DirectionType
object' Bool
p0'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onNotebookReorderTab :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookReorderTabCallback) -> m SignalHandlerId
onNotebookReorderTab :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookReorderTabCallback) -> m SignalHandlerId
onNotebookReorderTab a
obj (?self::a) => NotebookReorderTabCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookReorderTabCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookReorderTabCallback
NotebookReorderTabCallback
cb
let wrapped' :: C_NotebookReorderTabCallback
wrapped' = (a -> NotebookReorderTabCallback) -> C_NotebookReorderTabCallback
forall a.
GObject a =>
(a -> NotebookReorderTabCallback) -> C_NotebookReorderTabCallback
wrap_NotebookReorderTabCallback a -> NotebookReorderTabCallback
wrapped
FunPtr C_NotebookReorderTabCallback
wrapped'' <- C_NotebookReorderTabCallback
-> IO (FunPtr C_NotebookReorderTabCallback)
mk_NotebookReorderTabCallback C_NotebookReorderTabCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookReorderTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"reorder-tab" FunPtr C_NotebookReorderTabCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookReorderTab :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookReorderTabCallback) -> m SignalHandlerId
afterNotebookReorderTab :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookReorderTabCallback) -> m SignalHandlerId
afterNotebookReorderTab a
obj (?self::a) => NotebookReorderTabCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookReorderTabCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookReorderTabCallback
NotebookReorderTabCallback
cb
let wrapped' :: C_NotebookReorderTabCallback
wrapped' = (a -> NotebookReorderTabCallback) -> C_NotebookReorderTabCallback
forall a.
GObject a =>
(a -> NotebookReorderTabCallback) -> C_NotebookReorderTabCallback
wrap_NotebookReorderTabCallback a -> NotebookReorderTabCallback
wrapped
FunPtr C_NotebookReorderTabCallback
wrapped'' <- C_NotebookReorderTabCallback
-> IO (FunPtr C_NotebookReorderTabCallback)
mk_NotebookReorderTabCallback C_NotebookReorderTabCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookReorderTabCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"reorder-tab" FunPtr C_NotebookReorderTabCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookReorderTabSignalInfo
instance SignalInfo NotebookReorderTabSignalInfo where
type HaskellCallbackType NotebookReorderTabSignalInfo = NotebookReorderTabCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookReorderTabCallback cb
cb'' <- mk_NotebookReorderTabCallback cb'
connectSignalFunPtr obj "reorder-tab" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::reorder-tab"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:reorderTab"})
#endif
type NotebookSelectPageCallback =
Bool
-> IO Bool
type C_NotebookSelectPageCallback =
Ptr Notebook ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_NotebookSelectPageCallback :: C_NotebookSelectPageCallback -> IO (FunPtr C_NotebookSelectPageCallback)
wrap_NotebookSelectPageCallback ::
GObject a => (a -> NotebookSelectPageCallback) ->
C_NotebookSelectPageCallback
wrap_NotebookSelectPageCallback :: forall a.
GObject a =>
(a -> NotebookSelectPageCallback) -> C_NotebookSelectPageCallback
wrap_NotebookSelectPageCallback a -> NotebookSelectPageCallback
gi'cb Ptr Notebook
gi'selfPtr CInt
object Ptr ()
_ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
object
Bool
result <- Ptr Notebook -> (Notebook -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO Bool) -> IO Bool)
-> (Notebook -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookSelectPageCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Bool
object'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onNotebookSelectPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookSelectPageCallback) -> m SignalHandlerId
onNotebookSelectPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookSelectPageCallback) -> m SignalHandlerId
onNotebookSelectPage a
obj (?self::a) => NotebookSelectPageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookSelectPageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookSelectPageCallback
NotebookSelectPageCallback
cb
let wrapped' :: C_NotebookSelectPageCallback
wrapped' = (a -> NotebookSelectPageCallback) -> C_NotebookSelectPageCallback
forall a.
GObject a =>
(a -> NotebookSelectPageCallback) -> C_NotebookSelectPageCallback
wrap_NotebookSelectPageCallback a -> NotebookSelectPageCallback
wrapped
FunPtr C_NotebookSelectPageCallback
wrapped'' <- C_NotebookSelectPageCallback
-> IO (FunPtr C_NotebookSelectPageCallback)
mk_NotebookSelectPageCallback C_NotebookSelectPageCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookSelectPageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-page" FunPtr C_NotebookSelectPageCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookSelectPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookSelectPageCallback) -> m SignalHandlerId
afterNotebookSelectPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a
-> ((?self::a) => NotebookSelectPageCallback) -> m SignalHandlerId
afterNotebookSelectPage a
obj (?self::a) => NotebookSelectPageCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookSelectPageCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookSelectPageCallback
NotebookSelectPageCallback
cb
let wrapped' :: C_NotebookSelectPageCallback
wrapped' = (a -> NotebookSelectPageCallback) -> C_NotebookSelectPageCallback
forall a.
GObject a =>
(a -> NotebookSelectPageCallback) -> C_NotebookSelectPageCallback
wrap_NotebookSelectPageCallback a -> NotebookSelectPageCallback
wrapped
FunPtr C_NotebookSelectPageCallback
wrapped'' <- C_NotebookSelectPageCallback
-> IO (FunPtr C_NotebookSelectPageCallback)
mk_NotebookSelectPageCallback C_NotebookSelectPageCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookSelectPageCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-page" FunPtr C_NotebookSelectPageCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookSelectPageSignalInfo
instance SignalInfo NotebookSelectPageSignalInfo where
type HaskellCallbackType NotebookSelectPageSignalInfo = NotebookSelectPageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookSelectPageCallback cb
cb'' <- mk_NotebookSelectPageCallback cb'
connectSignalFunPtr obj "select-page" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::select-page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:selectPage"})
#endif
type NotebookSwitchPageCallback =
Gtk.Widget.Widget
-> Word32
-> IO ()
type C_NotebookSwitchPageCallback =
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_NotebookSwitchPageCallback :: C_NotebookSwitchPageCallback -> IO (FunPtr C_NotebookSwitchPageCallback)
wrap_NotebookSwitchPageCallback ::
GObject a => (a -> NotebookSwitchPageCallback) ->
C_NotebookSwitchPageCallback
wrap_NotebookSwitchPageCallback :: forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookSwitchPageCallback a -> NotebookPageAddedCallback
gi'cb Ptr Notebook
gi'selfPtr Ptr Widget
page Word32
pageNum Ptr ()
_ = do
Widget
page' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
page
Ptr Notebook -> (Notebook -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Notebook
gi'selfPtr ((Notebook -> IO ()) -> IO ()) -> (Notebook -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Notebook
gi'self -> a -> NotebookPageAddedCallback
gi'cb (Notebook -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Notebook
gi'self) Widget
page' Word32
pageNum
onNotebookSwitchPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookSwitchPageCallback) -> m SignalHandlerId
onNotebookSwitchPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookPageAddedCallback) -> m SignalHandlerId
onNotebookSwitchPage a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookSwitchPageCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookSwitchPageCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"switch-page" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterNotebookSwitchPage :: (IsNotebook a, MonadIO m) => a -> ((?self :: a) => NotebookSwitchPageCallback) -> m SignalHandlerId
afterNotebookSwitchPage :: forall a (m :: * -> *).
(IsNotebook a, MonadIO m) =>
a -> ((?self::a) => NotebookPageAddedCallback) -> m SignalHandlerId
afterNotebookSwitchPage a
obj (?self::a) => NotebookPageAddedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NotebookPageAddedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => NotebookPageAddedCallback
NotebookPageAddedCallback
cb
let wrapped' :: C_NotebookPageAddedCallback
wrapped' = (a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
forall a.
GObject a =>
(a -> NotebookPageAddedCallback) -> C_NotebookPageAddedCallback
wrap_NotebookSwitchPageCallback a -> NotebookPageAddedCallback
wrapped
FunPtr C_NotebookPageAddedCallback
wrapped'' <- C_NotebookPageAddedCallback
-> IO (FunPtr C_NotebookPageAddedCallback)
mk_NotebookSwitchPageCallback C_NotebookPageAddedCallback
wrapped'
a
-> Text
-> FunPtr C_NotebookPageAddedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"switch-page" FunPtr C_NotebookPageAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NotebookSwitchPageSignalInfo
instance SignalInfo NotebookSwitchPageSignalInfo where
type HaskellCallbackType NotebookSwitchPageSignalInfo = NotebookSwitchPageCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NotebookSwitchPageCallback cb
cb'' <- mk_NotebookSwitchPageCallback cb'
connectSignalFunPtr obj "switch-page" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook::switch-page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:signal:switchPage"})
#endif
getNotebookEnablePopup :: (MonadIO m, IsNotebook o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-popup"
setNotebookEnablePopup :: (MonadIO m, IsNotebook o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-popup" Bool
val
constructNotebookEnablePopup :: (IsNotebook o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-popup" Bool
val
#if defined(ENABLE_OVERLOADING)
data NotebookEnablePopupPropertyInfo
instance AttrInfo NotebookEnablePopupPropertyInfo where
type AttrAllowedOps NotebookEnablePopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookEnablePopupPropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool
type AttrTransferType NotebookEnablePopupPropertyInfo = Bool
type AttrGetType NotebookEnablePopupPropertyInfo = Bool
type AttrLabel NotebookEnablePopupPropertyInfo = "enable-popup"
type AttrOrigin NotebookEnablePopupPropertyInfo = Notebook
attrGet = getNotebookEnablePopup
attrSet = setNotebookEnablePopup
attrTransfer _ v = do
return v
attrConstruct = constructNotebookEnablePopup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.enablePopup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:enablePopup"
})
#endif
getNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> m (Maybe T.Text)
getNotebookGroupName :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> m (Maybe Text)
getNotebookGroupName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"group-name"
setNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> T.Text -> m ()
setNotebookGroupName :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> Text -> m ()
setNotebookGroupName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"group-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructNotebookGroupName :: (IsNotebook o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructNotebookGroupName :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructNotebookGroupName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"group-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearNotebookGroupName :: (MonadIO m, IsNotebook o) => o -> m ()
clearNotebookGroupName :: forall (m :: * -> *) o. (MonadIO m, IsNotebook o) => o -> m ()
clearNotebookGroupName o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"group-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data NotebookGroupNamePropertyInfo
instance AttrInfo NotebookGroupNamePropertyInfo where
type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text
type AttrTransferType NotebookGroupNamePropertyInfo = T.Text
type AttrGetType NotebookGroupNamePropertyInfo = (Maybe T.Text)
type AttrLabel NotebookGroupNamePropertyInfo = "group-name"
type AttrOrigin NotebookGroupNamePropertyInfo = Notebook
attrGet = getNotebookGroupName
attrSet = setNotebookGroupName
attrTransfer _ v = do
return v
attrConstruct = constructNotebookGroupName
attrClear = clearNotebookGroupName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.groupName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:groupName"
})
#endif
getNotebookPage :: (MonadIO m, IsNotebook o) => o -> m Int32
getNotebookPage :: forall (m :: * -> *) o. (MonadIO m, IsNotebook o) => o -> m Int32
getNotebookPage o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"page"
setNotebookPage :: (MonadIO m, IsNotebook o) => o -> Int32 -> m ()
setNotebookPage :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> Int32 -> m ()
setNotebookPage o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"page" Int32
val
constructNotebookPage :: (IsNotebook o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructNotebookPage :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructNotebookPage Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"page" Int32
val
#if defined(ENABLE_OVERLOADING)
data NotebookPagePropertyInfo
instance AttrInfo NotebookPagePropertyInfo where
type AttrAllowedOps NotebookPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookPagePropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookPagePropertyInfo = (~) Int32
type AttrTransferTypeConstraint NotebookPagePropertyInfo = (~) Int32
type AttrTransferType NotebookPagePropertyInfo = Int32
type AttrGetType NotebookPagePropertyInfo = Int32
type AttrLabel NotebookPagePropertyInfo = "page"
type AttrOrigin NotebookPagePropertyInfo = Notebook
attrGet = getNotebookPage
attrSet = setNotebookPage
attrTransfer _ v = do
return v
attrConstruct = constructNotebookPage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.page"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:page"
})
#endif
getNotebookScrollable :: (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookScrollable :: forall (m :: * -> *) o. (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookScrollable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"scrollable"
setNotebookScrollable :: (MonadIO m, IsNotebook o) => o -> Bool -> m ()
setNotebookScrollable :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> Bool -> m ()
setNotebookScrollable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scrollable" Bool
val
constructNotebookScrollable :: (IsNotebook o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNotebookScrollable :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNotebookScrollable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scrollable" Bool
val
#if defined(ENABLE_OVERLOADING)
data NotebookScrollablePropertyInfo
instance AttrInfo NotebookScrollablePropertyInfo where
type AttrAllowedOps NotebookScrollablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookScrollablePropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookScrollablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint NotebookScrollablePropertyInfo = (~) Bool
type AttrTransferType NotebookScrollablePropertyInfo = Bool
type AttrGetType NotebookScrollablePropertyInfo = Bool
type AttrLabel NotebookScrollablePropertyInfo = "scrollable"
type AttrOrigin NotebookScrollablePropertyInfo = Notebook
attrGet = getNotebookScrollable
attrSet = setNotebookScrollable
attrTransfer _ v = do
return v
attrConstruct = constructNotebookScrollable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.scrollable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:scrollable"
})
#endif
getNotebookShowBorder :: (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookShowBorder :: forall (m :: * -> *) o. (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookShowBorder o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-border"
setNotebookShowBorder :: (MonadIO m, IsNotebook o) => o -> Bool -> m ()
setNotebookShowBorder :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> Bool -> m ()
setNotebookShowBorder o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-border" Bool
val
constructNotebookShowBorder :: (IsNotebook o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNotebookShowBorder :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNotebookShowBorder Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-border" Bool
val
#if defined(ENABLE_OVERLOADING)
data NotebookShowBorderPropertyInfo
instance AttrInfo NotebookShowBorderPropertyInfo where
type AttrAllowedOps NotebookShowBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookShowBorderPropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool
type AttrTransferType NotebookShowBorderPropertyInfo = Bool
type AttrGetType NotebookShowBorderPropertyInfo = Bool
type AttrLabel NotebookShowBorderPropertyInfo = "show-border"
type AttrOrigin NotebookShowBorderPropertyInfo = Notebook
attrGet = getNotebookShowBorder
attrSet = setNotebookShowBorder
attrTransfer _ v = do
return v
attrConstruct = constructNotebookShowBorder
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.showBorder"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:showBorder"
})
#endif
getNotebookShowTabs :: (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookShowTabs :: forall (m :: * -> *) o. (MonadIO m, IsNotebook o) => o -> m Bool
getNotebookShowTabs o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-tabs"
setNotebookShowTabs :: (MonadIO m, IsNotebook o) => o -> Bool -> m ()
setNotebookShowTabs :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> Bool -> m ()
setNotebookShowTabs o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-tabs" Bool
val
constructNotebookShowTabs :: (IsNotebook o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNotebookShowTabs :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNotebookShowTabs Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-tabs" Bool
val
#if defined(ENABLE_OVERLOADING)
data NotebookShowTabsPropertyInfo
instance AttrInfo NotebookShowTabsPropertyInfo where
type AttrAllowedOps NotebookShowTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookShowTabsPropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool
type AttrTransferType NotebookShowTabsPropertyInfo = Bool
type AttrGetType NotebookShowTabsPropertyInfo = Bool
type AttrLabel NotebookShowTabsPropertyInfo = "show-tabs"
type AttrOrigin NotebookShowTabsPropertyInfo = Notebook
attrGet = getNotebookShowTabs
attrSet = setNotebookShowTabs
attrTransfer _ v = do
return v
attrConstruct = constructNotebookShowTabs
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.showTabs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:showTabs"
})
#endif
getNotebookTabPos :: (MonadIO m, IsNotebook o) => o -> m Gtk.Enums.PositionType
getNotebookTabPos :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> m PositionType
getNotebookTabPos o
obj = IO PositionType -> m PositionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PositionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"tab-pos"
setNotebookTabPos :: (MonadIO m, IsNotebook o) => o -> Gtk.Enums.PositionType -> m ()
setNotebookTabPos :: forall (m :: * -> *) o.
(MonadIO m, IsNotebook o) =>
o -> PositionType -> m ()
setNotebookTabPos o
obj PositionType
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> PositionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"tab-pos" PositionType
val
constructNotebookTabPos :: (IsNotebook o, MIO.MonadIO m) => Gtk.Enums.PositionType -> m (GValueConstruct o)
constructNotebookTabPos :: forall o (m :: * -> *).
(IsNotebook o, MonadIO m) =>
PositionType -> m (GValueConstruct o)
constructNotebookTabPos PositionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> PositionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"tab-pos" PositionType
val
#if defined(ENABLE_OVERLOADING)
data NotebookTabPosPropertyInfo
instance AttrInfo NotebookTabPosPropertyInfo where
type AttrAllowedOps NotebookTabPosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NotebookTabPosPropertyInfo = IsNotebook
type AttrSetTypeConstraint NotebookTabPosPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferTypeConstraint NotebookTabPosPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferType NotebookTabPosPropertyInfo = Gtk.Enums.PositionType
type AttrGetType NotebookTabPosPropertyInfo = Gtk.Enums.PositionType
type AttrLabel NotebookTabPosPropertyInfo = "tab-pos"
type AttrOrigin NotebookTabPosPropertyInfo = Notebook
attrGet = getNotebookTabPos
attrSet = setNotebookTabPos
attrTransfer _ v = do
return v
attrConstruct = constructNotebookTabPos
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.tabPos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#g:attr:tabPos"
})
#endif
#if defined(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, DK.Type)])
#endif
#if defined(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 defined(ENABLE_OVERLOADING)
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, DK.Type)])
#endif
foreign import ccall "gtk_notebook_new" gtk_notebook_new ::
IO (Ptr Notebook)
notebookNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Notebook
notebookNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Notebook
notebookNew = IO Notebook -> m Notebook
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Notebook -> m Notebook) -> IO Notebook -> m Notebook
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
result <- IO (Ptr Notebook)
gtk_notebook_new
Text -> Ptr Notebook -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"notebookNew" Ptr Notebook
result
Notebook
result' <- ((ManagedPtr Notebook -> Notebook) -> Ptr Notebook -> IO Notebook
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Notebook -> Notebook
Notebook) Ptr Notebook
result
Notebook -> IO Notebook
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Notebook
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_notebook_append_page" gtk_notebook_append_page ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO Int32
notebookAppendPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m Int32
notebookAppendPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m Int32
notebookAppendPage a
notebook b
child Maybe c
tabLabel = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Int32
result <- Ptr Notebook -> Ptr Widget -> Ptr Widget -> IO Int32
gtk_notebook_append_page Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NotebookAppendPageMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod NotebookAppendPageMethodInfo a signature where
overloadedMethod = notebookAppendPage
instance O.OverloadedMethodInfo NotebookAppendPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookAppendPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookAppendPage"
})
#endif
foreign import ccall "gtk_notebook_append_page_menu" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO Int32
notebookAppendPageMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) =>
a
-> b
-> Maybe (c)
-> Maybe (d)
-> m Int32
a
notebook b
child Maybe c
tabLabel Maybe d
menuLabel = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Ptr Widget
maybeMenuLabel <- case Maybe d
menuLabel of
Maybe d
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just d
jMenuLabel -> do
Ptr Widget
jMenuLabel' <- d -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jMenuLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenuLabel'
Int32
result <- Ptr Notebook -> Ptr Widget -> Ptr Widget -> Ptr Widget -> IO Int32
gtk_notebook_append_page_menu Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel Ptr Widget
maybeMenuLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
menuLabel d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(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.OverloadedMethod NotebookAppendPageMenuMethodInfo a signature where
overloadedMethod = notebookAppendPageMenu
instance O.OverloadedMethodInfo NotebookAppendPageMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookAppendPageMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookAppendPageMenu"
})
#endif
foreign import ccall "gtk_notebook_detach_tab" gtk_notebook_detach_tab ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO ()
notebookDetachTab ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
notebookDetachTab :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m ()
notebookDetachTab a
notebook b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Notebook -> Ptr Widget -> IO ()
gtk_notebook_detach_tab Ptr Notebook
notebook' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookDetachTabMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookDetachTabMethodInfo a signature where
overloadedMethod = notebookDetachTab
instance O.OverloadedMethodInfo NotebookDetachTabMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookDetachTab",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookDetachTab"
})
#endif
foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget ::
Ptr Notebook ->
CUInt ->
IO (Ptr Gtk.Widget.Widget)
notebookGetActionWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Gtk.Enums.PackType
-> m (Maybe Gtk.Widget.Widget)
notebookGetActionWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> PackType -> m (Maybe Widget)
notebookGetActionWidget a
notebook PackType
packType = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
let packType' :: CUInt
packType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PackType -> Int) -> PackType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackType -> Int
forall a. Enum a => a -> Int
fromEnum) PackType
packType
Ptr Widget
result <- Ptr Notebook -> CUInt -> IO (Ptr Widget)
gtk_notebook_get_action_widget Ptr Notebook
notebook' CUInt
packType'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetActionWidgetMethodInfo
instance (signature ~ (Gtk.Enums.PackType -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetActionWidgetMethodInfo a signature where
overloadedMethod = notebookGetActionWidget
instance O.OverloadedMethodInfo NotebookGetActionWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetActionWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetActionWidget"
})
#endif
foreign import ccall "gtk_notebook_get_current_page" gtk_notebook_get_current_page ::
Ptr Notebook ->
IO Int32
notebookGetCurrentPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Int32
notebookGetCurrentPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Int32
notebookGetCurrentPage a
notebook = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Int32
result <- Ptr Notebook -> IO Int32
gtk_notebook_get_current_page Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NotebookGetCurrentPageMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetCurrentPageMethodInfo a signature where
overloadedMethod = notebookGetCurrentPage
instance O.OverloadedMethodInfo NotebookGetCurrentPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetCurrentPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetCurrentPage"
})
#endif
foreign import ccall "gtk_notebook_get_group_name" gtk_notebook_get_group_name ::
Ptr Notebook ->
IO CString
notebookGetGroupName ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m (Maybe T.Text)
notebookGetGroupName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m (Maybe Text)
notebookGetGroupName a
notebook = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CString
result <- Ptr Notebook -> IO CString
gtk_notebook_get_group_name Ptr Notebook
notebook'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetGroupNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetGroupNameMethodInfo a signature where
overloadedMethod = notebookGetGroupName
instance O.OverloadedMethodInfo NotebookGetGroupNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetGroupName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetGroupName"
})
#endif
foreign import ccall "gtk_notebook_get_menu_label" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.Widget.Widget)
notebookGetMenuLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m (Maybe Gtk.Widget.Widget)
a
notebook b
child = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
result <- Ptr Notebook -> Ptr Widget -> IO (Ptr Widget)
gtk_notebook_get_menu_label Ptr Notebook
notebook' Ptr Widget
child'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetMenuLabelMethodInfo
instance (signature ~ (b -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetMenuLabelMethodInfo a signature where
overloadedMethod = notebookGetMenuLabel
instance O.OverloadedMethodInfo NotebookGetMenuLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetMenuLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetMenuLabel"
})
#endif
foreign import ccall "gtk_notebook_get_menu_label_text" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO CString
notebookGetMenuLabelText ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m (Maybe T.Text)
a
notebook b
child = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
result <- Ptr Notebook -> Ptr Widget -> IO CString
gtk_notebook_get_menu_label_text Ptr Notebook
notebook' Ptr Widget
child'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetMenuLabelTextMethodInfo
instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetMenuLabelTextMethodInfo a signature where
overloadedMethod = notebookGetMenuLabelText
instance O.OverloadedMethodInfo NotebookGetMenuLabelTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetMenuLabelText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetMenuLabelText"
})
#endif
foreign import ccall "gtk_notebook_get_n_pages" gtk_notebook_get_n_pages ::
Ptr Notebook ->
IO Int32
notebookGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Int32
notebookGetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Int32
notebookGetNPages a
notebook = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Int32
result <- Ptr Notebook -> IO Int32
gtk_notebook_get_n_pages Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NotebookGetNPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetNPagesMethodInfo a signature where
overloadedMethod = notebookGetNPages
instance O.OverloadedMethodInfo NotebookGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetNPages"
})
#endif
foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page ::
Ptr Notebook ->
Int32 ->
IO (Ptr Gtk.Widget.Widget)
notebookGetNthPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Int32
-> m (Maybe Gtk.Widget.Widget)
notebookGetNthPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Int32 -> m (Maybe Widget)
notebookGetNthPage a
notebook Int32
pageNum = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
result <- Ptr Notebook -> Int32 -> IO (Ptr Widget)
gtk_notebook_get_nth_page Ptr Notebook
notebook' Int32
pageNum
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetNthPageMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetNthPageMethodInfo a signature where
overloadedMethod = notebookGetNthPage
instance O.OverloadedMethodInfo NotebookGetNthPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetNthPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetNthPage"
})
#endif
foreign import ccall "gtk_notebook_get_scrollable" gtk_notebook_get_scrollable ::
Ptr Notebook ->
IO CInt
notebookGetScrollable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Bool
notebookGetScrollable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Bool
notebookGetScrollable a
notebook = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CInt
result <- Ptr Notebook -> IO CInt
gtk_notebook_get_scrollable Ptr Notebook
notebook'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
NotebookSelectPageCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetScrollableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetScrollableMethodInfo a signature where
overloadedMethod = notebookGetScrollable
instance O.OverloadedMethodInfo NotebookGetScrollableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetScrollable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetScrollable"
})
#endif
foreign import ccall "gtk_notebook_get_show_border" gtk_notebook_get_show_border ::
Ptr Notebook ->
IO CInt
notebookGetShowBorder ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Bool
notebookGetShowBorder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Bool
notebookGetShowBorder a
notebook = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CInt
result <- Ptr Notebook -> IO CInt
gtk_notebook_get_show_border Ptr Notebook
notebook'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
NotebookSelectPageCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetShowBorderMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetShowBorderMethodInfo a signature where
overloadedMethod = notebookGetShowBorder
instance O.OverloadedMethodInfo NotebookGetShowBorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetShowBorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetShowBorder"
})
#endif
foreign import ccall "gtk_notebook_get_show_tabs" gtk_notebook_get_show_tabs ::
Ptr Notebook ->
IO CInt
notebookGetShowTabs ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Bool
notebookGetShowTabs :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Bool
notebookGetShowTabs a
notebook = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CInt
result <- Ptr Notebook -> IO CInt
gtk_notebook_get_show_tabs Ptr Notebook
notebook'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
NotebookSelectPageCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetShowTabsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetShowTabsMethodInfo a signature where
overloadedMethod = notebookGetShowTabs
instance O.OverloadedMethodInfo NotebookGetShowTabsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetShowTabs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetShowTabs"
})
#endif
foreign import ccall "gtk_notebook_get_tab_detachable" gtk_notebook_get_tab_detachable ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO CInt
notebookGetTabDetachable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Bool
notebookGetTabDetachable :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m Bool
notebookGetTabDetachable a
notebook b
child = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Notebook -> Ptr Widget -> IO CInt
gtk_notebook_get_tab_detachable Ptr Notebook
notebook' Ptr Widget
child'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
NotebookSelectPageCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabDetachableMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetTabDetachableMethodInfo a signature where
overloadedMethod = notebookGetTabDetachable
instance O.OverloadedMethodInfo NotebookGetTabDetachableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabDetachable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabDetachable"
})
#endif
foreign import ccall "gtk_notebook_get_tab_hborder" gtk_notebook_get_tab_hborder ::
Ptr Notebook ->
IO Word16
{-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"] #-}
notebookGetTabHborder ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Word16
notebookGetTabHborder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Word16
notebookGetTabHborder a
notebook = IO Word16 -> m Word16
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Word16
result <- Ptr Notebook -> IO Word16
gtk_notebook_get_tab_hborder Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Word16 -> IO Word16
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabHborderMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetTabHborderMethodInfo a signature where
overloadedMethod = notebookGetTabHborder
instance O.OverloadedMethodInfo NotebookGetTabHborderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabHborder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabHborder"
})
#endif
foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.Widget.Widget)
notebookGetTabLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m (Maybe Gtk.Widget.Widget)
notebookGetTabLabel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m (Maybe Widget)
notebookGetTabLabel a
notebook b
child = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
result <- Ptr Notebook -> Ptr Widget -> IO (Ptr Widget)
gtk_notebook_get_tab_label Ptr Notebook
notebook' Ptr Widget
child'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabLabelMethodInfo
instance (signature ~ (b -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetTabLabelMethodInfo a signature where
overloadedMethod = notebookGetTabLabel
instance O.OverloadedMethodInfo NotebookGetTabLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabLabel"
})
#endif
foreign import ccall "gtk_notebook_get_tab_label_text" gtk_notebook_get_tab_label_text ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO CString
notebookGetTabLabelText ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m (Maybe T.Text)
notebookGetTabLabelText :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m (Maybe Text)
notebookGetTabLabelText a
notebook b
child = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
result <- Ptr Notebook -> Ptr Widget -> IO CString
gtk_notebook_get_tab_label_text Ptr Notebook
notebook' Ptr Widget
child'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabLabelTextMethodInfo
instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetTabLabelTextMethodInfo a signature where
overloadedMethod = notebookGetTabLabelText
instance O.OverloadedMethodInfo NotebookGetTabLabelTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabLabelText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabLabelText"
})
#endif
foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos ::
Ptr Notebook ->
IO CUInt
notebookGetTabPos ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Gtk.Enums.PositionType
notebookGetTabPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m PositionType
notebookGetTabPos a
notebook = IO PositionType -> m PositionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CUInt
result <- Ptr Notebook -> IO CUInt
gtk_notebook_get_tab_pos Ptr Notebook
notebook'
let result' :: PositionType
result' = (Int -> PositionType
forall a. Enum a => Int -> a
toEnum (Int -> PositionType) -> (CUInt -> Int) -> CUInt -> PositionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
PositionType -> IO PositionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PositionType
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabPosMethodInfo
instance (signature ~ (m Gtk.Enums.PositionType), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetTabPosMethodInfo a signature where
overloadedMethod = notebookGetTabPos
instance O.OverloadedMethodInfo NotebookGetTabPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabPos"
})
#endif
foreign import ccall "gtk_notebook_get_tab_reorderable" gtk_notebook_get_tab_reorderable ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO CInt
notebookGetTabReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Bool
notebookGetTabReorderable :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m Bool
notebookGetTabReorderable a
notebook b
child = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CInt
result <- Ptr Notebook -> Ptr Widget -> IO CInt
gtk_notebook_get_tab_reorderable Ptr Notebook
notebook' Ptr Widget
child'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
NotebookSelectPageCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabReorderableMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookGetTabReorderableMethodInfo a signature where
overloadedMethod = notebookGetTabReorderable
instance O.OverloadedMethodInfo NotebookGetTabReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabReorderable"
})
#endif
foreign import ccall "gtk_notebook_get_tab_vborder" gtk_notebook_get_tab_vborder ::
Ptr Notebook ->
IO Word16
{-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"] #-}
notebookGetTabVborder ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m Word16
notebookGetTabVborder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m Word16
notebookGetTabVborder a
notebook = IO Word16 -> m Word16
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Word16
result <- Ptr Notebook -> IO Word16
gtk_notebook_get_tab_vborder Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
Word16 -> IO Word16
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data NotebookGetTabVborderMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookGetTabVborderMethodInfo a signature where
overloadedMethod = notebookGetTabVborder
instance O.OverloadedMethodInfo NotebookGetTabVborderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookGetTabVborder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookGetTabVborder"
})
#endif
foreign import ccall "gtk_notebook_insert_page" gtk_notebook_insert_page ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO Int32
notebookInsertPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> Int32
-> m Int32
notebookInsertPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> Int32 -> m Int32
notebookInsertPage a
notebook b
child Maybe c
tabLabel Int32
position = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Int32
result <- Ptr Notebook -> Ptr Widget -> Ptr Widget -> Int32 -> IO Int32
gtk_notebook_insert_page Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(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.OverloadedMethod NotebookInsertPageMethodInfo a signature where
overloadedMethod = notebookInsertPage
instance O.OverloadedMethodInfo NotebookInsertPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookInsertPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookInsertPage"
})
#endif
foreign import ccall "gtk_notebook_insert_page_menu" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO Int32
notebookInsertPageMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) =>
a
-> b
-> Maybe (c)
-> Maybe (d)
-> Int32
-> m Int32
a
notebook b
child Maybe c
tabLabel Maybe d
menuLabel Int32
position = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Ptr Widget
maybeMenuLabel <- case Maybe d
menuLabel of
Maybe d
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just d
jMenuLabel -> do
Ptr Widget
jMenuLabel' <- d -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jMenuLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenuLabel'
Int32
result <- Ptr Notebook
-> Ptr Widget -> Ptr Widget -> Ptr Widget -> Int32 -> IO Int32
gtk_notebook_insert_page_menu Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel Ptr Widget
maybeMenuLabel Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
menuLabel d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(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.OverloadedMethod NotebookInsertPageMenuMethodInfo a signature where
overloadedMethod = notebookInsertPageMenu
instance O.OverloadedMethodInfo NotebookInsertPageMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookInsertPageMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookInsertPageMenu"
})
#endif
foreign import ccall "gtk_notebook_next_page" gtk_notebook_next_page ::
Ptr Notebook ->
IO ()
notebookNextPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m ()
notebookNextPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m ()
notebookNextPage a
notebook = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> IO ()
gtk_notebook_next_page Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookNextPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookNextPageMethodInfo a signature where
overloadedMethod = notebookNextPage
instance O.OverloadedMethodInfo NotebookNextPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookNextPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookNextPage"
})
#endif
foreign import ccall "gtk_notebook_page_num" gtk_notebook_page_num ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
IO Int32
notebookPageNum ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Int32
notebookPageNum :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> m Int32
notebookPageNum a
notebook b
child = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Int32
result <- Ptr Notebook -> Ptr Widget -> IO Int32
gtk_notebook_page_num Ptr Notebook
notebook' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NotebookPageNumMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookPageNumMethodInfo a signature where
overloadedMethod = notebookPageNum
instance O.OverloadedMethodInfo NotebookPageNumMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPageNum",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPageNum"
})
#endif
foreign import ccall "gtk_notebook_popup_disable" ::
Ptr Notebook ->
IO ()
notebookPopupDisable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m ()
a
notebook = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> IO ()
gtk_notebook_popup_disable Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookPopupDisableMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookPopupDisableMethodInfo a signature where
overloadedMethod = notebookPopupDisable
instance O.OverloadedMethodInfo NotebookPopupDisableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPopupDisable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPopupDisable"
})
#endif
foreign import ccall "gtk_notebook_popup_enable" ::
Ptr Notebook ->
IO ()
notebookPopupEnable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m ()
a
notebook = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> IO ()
gtk_notebook_popup_enable Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookPopupEnableMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookPopupEnableMethodInfo a signature where
overloadedMethod = notebookPopupEnable
instance O.OverloadedMethodInfo NotebookPopupEnableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPopupEnable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPopupEnable"
})
#endif
foreign import ccall "gtk_notebook_prepend_page" gtk_notebook_prepend_page ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO Int32
notebookPrependPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m Int32
notebookPrependPage :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m Int32
notebookPrependPage a
notebook b
child Maybe c
tabLabel = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Int32
result <- Ptr Notebook -> Ptr Widget -> Ptr Widget -> IO Int32
gtk_notebook_prepend_page Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NotebookPrependPageMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod NotebookPrependPageMethodInfo a signature where
overloadedMethod = notebookPrependPage
instance O.OverloadedMethodInfo NotebookPrependPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPrependPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPrependPage"
})
#endif
foreign import ccall "gtk_notebook_prepend_page_menu" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO Int32
notebookPrependPageMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) =>
a
-> b
-> Maybe (c)
-> Maybe (d)
-> m Int32
a
notebook b
child Maybe c
tabLabel Maybe d
menuLabel = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Ptr Widget
maybeMenuLabel <- case Maybe d
menuLabel of
Maybe d
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just d
jMenuLabel -> do
Ptr Widget
jMenuLabel' <- d -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jMenuLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenuLabel'
Int32
result <- Ptr Notebook -> Ptr Widget -> Ptr Widget -> Ptr Widget -> IO Int32
gtk_notebook_prepend_page_menu Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel Ptr Widget
maybeMenuLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
menuLabel d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(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.OverloadedMethod NotebookPrependPageMenuMethodInfo a signature where
overloadedMethod = notebookPrependPageMenu
instance O.OverloadedMethodInfo NotebookPrependPageMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPrependPageMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPrependPageMenu"
})
#endif
foreign import ccall "gtk_notebook_prev_page" gtk_notebook_prev_page ::
Ptr Notebook ->
IO ()
notebookPrevPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> m ()
notebookPrevPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> m ()
notebookPrevPage a
notebook = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> IO ()
gtk_notebook_prev_page Ptr Notebook
notebook'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookPrevPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookPrevPageMethodInfo a signature where
overloadedMethod = notebookPrevPage
instance O.OverloadedMethodInfo NotebookPrevPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookPrevPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookPrevPage"
})
#endif
foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page ::
Ptr Notebook ->
Int32 ->
IO ()
notebookRemovePage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Int32
-> m ()
notebookRemovePage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Int32 -> m ()
notebookRemovePage a
notebook Int32
pageNum = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> Int32 -> IO ()
gtk_notebook_remove_page Ptr Notebook
notebook' Int32
pageNum
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookRemovePageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookRemovePageMethodInfo a signature where
overloadedMethod = notebookRemovePage
instance O.OverloadedMethodInfo NotebookRemovePageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookRemovePage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookRemovePage"
})
#endif
foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
notebookReorderChild ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
notebookReorderChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> Int32 -> m ()
notebookReorderChild a
notebook b
child Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Notebook -> Ptr Widget -> Int32 -> IO ()
gtk_notebook_reorder_child Ptr Notebook
notebook' Ptr Widget
child' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookReorderChildMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookReorderChildMethodInfo a signature where
overloadedMethod = notebookReorderChild
instance O.OverloadedMethodInfo NotebookReorderChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookReorderChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookReorderChild"
})
#endif
foreign import ccall "gtk_notebook_set_action_widget" gtk_notebook_set_action_widget ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
notebookSetActionWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Gtk.Enums.PackType
-> m ()
notebookSetActionWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> PackType -> m ()
notebookSetActionWidget a
notebook b
widget PackType
packType = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let packType' :: CUInt
packType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PackType -> Int) -> PackType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackType -> Int
forall a. Enum a => a -> Int
fromEnum) PackType
packType
Ptr Notebook -> Ptr Widget -> CUInt -> IO ()
gtk_notebook_set_action_widget Ptr Notebook
notebook' Ptr Widget
widget' CUInt
packType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetActionWidgetMethodInfo
instance (signature ~ (b -> Gtk.Enums.PackType -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookSetActionWidgetMethodInfo a signature where
overloadedMethod = notebookSetActionWidget
instance O.OverloadedMethodInfo NotebookSetActionWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetActionWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetActionWidget"
})
#endif
foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page ::
Ptr Notebook ->
Int32 ->
IO ()
notebookSetCurrentPage ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Int32
-> m ()
notebookSetCurrentPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Int32 -> m ()
notebookSetCurrentPage a
notebook Int32
pageNum = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Notebook -> Int32 -> IO ()
gtk_notebook_set_current_page Ptr Notebook
notebook' Int32
pageNum
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetCurrentPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetCurrentPageMethodInfo a signature where
overloadedMethod = notebookSetCurrentPage
instance O.OverloadedMethodInfo NotebookSetCurrentPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetCurrentPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetCurrentPage"
})
#endif
foreign import ccall "gtk_notebook_set_group_name" gtk_notebook_set_group_name ::
Ptr Notebook ->
CString ->
IO ()
notebookSetGroupName ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Maybe (T.Text)
-> m ()
notebookSetGroupName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Maybe Text -> m ()
notebookSetGroupName a
notebook Maybe Text
groupName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
CString
maybeGroupName <- case Maybe Text
groupName of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jGroupName -> do
CString
jGroupName' <- Text -> IO CString
textToCString Text
jGroupName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jGroupName'
Ptr Notebook -> CString -> IO ()
gtk_notebook_set_group_name Ptr Notebook
notebook' CString
maybeGroupName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeGroupName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetGroupNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetGroupNameMethodInfo a signature where
overloadedMethod = notebookSetGroupName
instance O.OverloadedMethodInfo NotebookSetGroupNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetGroupName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetGroupName"
})
#endif
foreign import ccall "gtk_notebook_set_menu_label" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO ()
notebookSetMenuLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m ()
a
notebook b
child Maybe c
menuLabel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeMenuLabel <- case Maybe c
menuLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jMenuLabel -> do
Ptr Widget
jMenuLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jMenuLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenuLabel'
Ptr Notebook -> Ptr Widget -> Ptr Widget -> IO ()
gtk_notebook_set_menu_label Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeMenuLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
menuLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetMenuLabelMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod NotebookSetMenuLabelMethodInfo a signature where
overloadedMethod = notebookSetMenuLabel
instance O.OverloadedMethodInfo NotebookSetMenuLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetMenuLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetMenuLabel"
})
#endif
foreign import ccall "gtk_notebook_set_menu_label_text" ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
CString ->
IO ()
notebookSetMenuLabelText ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> m ()
a
notebook b
child Text
menuText = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
menuText' <- Text -> IO CString
textToCString Text
menuText
Ptr Notebook -> Ptr Widget -> CString -> IO ()
gtk_notebook_set_menu_label_text Ptr Notebook
notebook' Ptr Widget
child' CString
menuText'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
menuText'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetMenuLabelTextMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookSetMenuLabelTextMethodInfo a signature where
overloadedMethod = notebookSetMenuLabelText
instance O.OverloadedMethodInfo NotebookSetMenuLabelTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetMenuLabelText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetMenuLabelText"
})
#endif
foreign import ccall "gtk_notebook_set_scrollable" gtk_notebook_set_scrollable ::
Ptr Notebook ->
CInt ->
IO ()
notebookSetScrollable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Bool
-> m ()
notebookSetScrollable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Bool -> m ()
notebookSetScrollable a
notebook Bool
scrollable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
let scrollable' :: CInt
scrollable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
scrollable
Ptr Notebook -> CInt -> IO ()
gtk_notebook_set_scrollable Ptr Notebook
notebook' CInt
scrollable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetScrollableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetScrollableMethodInfo a signature where
overloadedMethod = notebookSetScrollable
instance O.OverloadedMethodInfo NotebookSetScrollableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetScrollable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetScrollable"
})
#endif
foreign import ccall "gtk_notebook_set_show_border" gtk_notebook_set_show_border ::
Ptr Notebook ->
CInt ->
IO ()
notebookSetShowBorder ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Bool
-> m ()
notebookSetShowBorder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Bool -> m ()
notebookSetShowBorder a
notebook Bool
showBorder = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
let showBorder' :: CInt
showBorder' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
showBorder
Ptr Notebook -> CInt -> IO ()
gtk_notebook_set_show_border Ptr Notebook
notebook' CInt
showBorder'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetShowBorderMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetShowBorderMethodInfo a signature where
overloadedMethod = notebookSetShowBorder
instance O.OverloadedMethodInfo NotebookSetShowBorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetShowBorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetShowBorder"
})
#endif
foreign import ccall "gtk_notebook_set_show_tabs" gtk_notebook_set_show_tabs ::
Ptr Notebook ->
CInt ->
IO ()
notebookSetShowTabs ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Bool
-> m ()
notebookSetShowTabs :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> Bool -> m ()
notebookSetShowTabs a
notebook Bool
showTabs = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
let showTabs' :: CInt
showTabs' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
showTabs
Ptr Notebook -> CInt -> IO ()
gtk_notebook_set_show_tabs Ptr Notebook
notebook' CInt
showTabs'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetShowTabsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetShowTabsMethodInfo a signature where
overloadedMethod = notebookSetShowTabs
instance O.OverloadedMethodInfo NotebookSetShowTabsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetShowTabs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetShowTabs"
})
#endif
foreign import ccall "gtk_notebook_set_tab_detachable" gtk_notebook_set_tab_detachable ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
notebookSetTabDetachable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
notebookSetTabDetachable :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> Bool -> m ()
notebookSetTabDetachable a
notebook b
child Bool
detachable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
let detachable' :: CInt
detachable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
detachable
Ptr Notebook -> Ptr Widget -> CInt -> IO ()
gtk_notebook_set_tab_detachable Ptr Notebook
notebook' Ptr Widget
child' CInt
detachable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetTabDetachableMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookSetTabDetachableMethodInfo a signature where
overloadedMethod = notebookSetTabDetachable
instance O.OverloadedMethodInfo NotebookSetTabDetachableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetTabDetachable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetTabDetachable"
})
#endif
foreign import ccall "gtk_notebook_set_tab_label" gtk_notebook_set_tab_label ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO ()
notebookSetTabLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m ()
notebookSetTabLabel :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m ()
notebookSetTabLabel a
notebook b
child Maybe c
tabLabel = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeTabLabel <- case Maybe c
tabLabel of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jTabLabel -> do
Ptr Widget
jTabLabel' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTabLabel
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTabLabel'
Ptr Notebook -> Ptr Widget -> Ptr Widget -> IO ()
gtk_notebook_set_tab_label Ptr Notebook
notebook' Ptr Widget
child' Ptr Widget
maybeTabLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
tabLabel c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetTabLabelMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod NotebookSetTabLabelMethodInfo a signature where
overloadedMethod = notebookSetTabLabel
instance O.OverloadedMethodInfo NotebookSetTabLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetTabLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetTabLabel"
})
#endif
foreign import ccall "gtk_notebook_set_tab_label_text" gtk_notebook_set_tab_label_text ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
CString ->
IO ()
notebookSetTabLabelText ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> m ()
notebookSetTabLabelText :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> Text -> m ()
notebookSetTabLabelText a
notebook b
child Text
tabText = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
tabText' <- Text -> IO CString
textToCString Text
tabText
Ptr Notebook -> Ptr Widget -> CString -> IO ()
gtk_notebook_set_tab_label_text Ptr Notebook
notebook' Ptr Widget
child' CString
tabText'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
tabText'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetTabLabelTextMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookSetTabLabelTextMethodInfo a signature where
overloadedMethod = notebookSetTabLabelText
instance O.OverloadedMethodInfo NotebookSetTabLabelTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetTabLabelText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetTabLabelText"
})
#endif
foreign import ccall "gtk_notebook_set_tab_pos" gtk_notebook_set_tab_pos ::
Ptr Notebook ->
CUInt ->
IO ()
notebookSetTabPos ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a) =>
a
-> Gtk.Enums.PositionType
-> m ()
notebookSetTabPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNotebook a) =>
a -> PositionType -> m ()
notebookSetTabPos a
notebook PositionType
pos = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
let pos' :: CUInt
pos' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
pos
Ptr Notebook -> CUInt -> IO ()
gtk_notebook_set_tab_pos Ptr Notebook
notebook' CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetTabPosMethodInfo
instance (signature ~ (Gtk.Enums.PositionType -> m ()), MonadIO m, IsNotebook a) => O.OverloadedMethod NotebookSetTabPosMethodInfo a signature where
overloadedMethod = notebookSetTabPos
instance O.OverloadedMethodInfo NotebookSetTabPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetTabPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetTabPos"
})
#endif
foreign import ccall "gtk_notebook_set_tab_reorderable" gtk_notebook_set_tab_reorderable ::
Ptr Notebook ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
notebookSetTabReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
notebookSetTabReorderable :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNotebook a, IsWidget b) =>
a -> b -> Bool -> m ()
notebookSetTabReorderable a
notebook b
child Bool
reorderable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Notebook
notebook' <- a -> IO (Ptr Notebook)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
let reorderable' :: CInt
reorderable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
reorderable
Ptr Notebook -> Ptr Widget -> CInt -> IO ()
gtk_notebook_set_tab_reorderable Ptr Notebook
notebook' Ptr Widget
child' CInt
reorderable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookSetTabReorderableMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsNotebook a, Gtk.Widget.IsWidget b) => O.OverloadedMethod NotebookSetTabReorderableMethodInfo a signature where
overloadedMethod = notebookSetTabReorderable
instance O.OverloadedMethodInfo NotebookSetTabReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Notebook.notebookSetTabReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Notebook.html#v:notebookSetTabReorderable"
})
#endif