{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Assistant
(
Assistant(..) ,
IsAssistant ,
toAssistant ,
noAssistant ,
#if defined(ENABLE_OVERLOADING)
ResolveAssistantMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AssistantAddActionWidgetMethodInfo ,
#endif
assistantAddActionWidget ,
#if defined(ENABLE_OVERLOADING)
AssistantAppendPageMethodInfo ,
#endif
assistantAppendPage ,
#if defined(ENABLE_OVERLOADING)
AssistantCommitMethodInfo ,
#endif
assistantCommit ,
#if defined(ENABLE_OVERLOADING)
AssistantGetCurrentPageMethodInfo ,
#endif
assistantGetCurrentPage ,
#if defined(ENABLE_OVERLOADING)
AssistantGetNPagesMethodInfo ,
#endif
assistantGetNPages ,
#if defined(ENABLE_OVERLOADING)
AssistantGetNthPageMethodInfo ,
#endif
assistantGetNthPage ,
#if defined(ENABLE_OVERLOADING)
AssistantGetPageMethodInfo ,
#endif
assistantGetPage ,
#if defined(ENABLE_OVERLOADING)
AssistantGetPageCompleteMethodInfo ,
#endif
assistantGetPageComplete ,
#if defined(ENABLE_OVERLOADING)
AssistantGetPageTitleMethodInfo ,
#endif
assistantGetPageTitle ,
#if defined(ENABLE_OVERLOADING)
AssistantGetPageTypeMethodInfo ,
#endif
assistantGetPageType ,
#if defined(ENABLE_OVERLOADING)
AssistantGetPagesMethodInfo ,
#endif
assistantGetPages ,
#if defined(ENABLE_OVERLOADING)
AssistantInsertPageMethodInfo ,
#endif
assistantInsertPage ,
assistantNew ,
#if defined(ENABLE_OVERLOADING)
AssistantNextPageMethodInfo ,
#endif
assistantNextPage ,
#if defined(ENABLE_OVERLOADING)
AssistantPrependPageMethodInfo ,
#endif
assistantPrependPage ,
#if defined(ENABLE_OVERLOADING)
AssistantPreviousPageMethodInfo ,
#endif
assistantPreviousPage ,
#if defined(ENABLE_OVERLOADING)
AssistantRemoveActionWidgetMethodInfo ,
#endif
assistantRemoveActionWidget ,
#if defined(ENABLE_OVERLOADING)
AssistantRemovePageMethodInfo ,
#endif
assistantRemovePage ,
#if defined(ENABLE_OVERLOADING)
AssistantSetCurrentPageMethodInfo ,
#endif
assistantSetCurrentPage ,
#if defined(ENABLE_OVERLOADING)
AssistantSetForwardPageFuncMethodInfo ,
#endif
assistantSetForwardPageFunc ,
#if defined(ENABLE_OVERLOADING)
AssistantSetPageCompleteMethodInfo ,
#endif
assistantSetPageComplete ,
#if defined(ENABLE_OVERLOADING)
AssistantSetPageTitleMethodInfo ,
#endif
assistantSetPageTitle ,
#if defined(ENABLE_OVERLOADING)
AssistantSetPageTypeMethodInfo ,
#endif
assistantSetPageType ,
#if defined(ENABLE_OVERLOADING)
AssistantUpdateButtonsStateMethodInfo ,
#endif
assistantUpdateButtonsState ,
#if defined(ENABLE_OVERLOADING)
AssistantPagesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
assistantPages ,
#endif
getAssistantPages ,
#if defined(ENABLE_OVERLOADING)
AssistantUseHeaderBarPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
assistantUseHeaderBar ,
#endif
constructAssistantUseHeaderBar ,
getAssistantUseHeaderBar ,
AssistantApplyCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantApplySignalInfo ,
#endif
C_AssistantApplyCallback ,
afterAssistantApply ,
genClosure_AssistantApply ,
mk_AssistantApplyCallback ,
noAssistantApplyCallback ,
onAssistantApply ,
wrap_AssistantApplyCallback ,
AssistantCancelCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantCancelSignalInfo ,
#endif
C_AssistantCancelCallback ,
afterAssistantCancel ,
genClosure_AssistantCancel ,
mk_AssistantCancelCallback ,
noAssistantCancelCallback ,
onAssistantCancel ,
wrap_AssistantCancelCallback ,
AssistantCloseCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantCloseSignalInfo ,
#endif
C_AssistantCloseCallback ,
afterAssistantClose ,
genClosure_AssistantClose ,
mk_AssistantCloseCallback ,
noAssistantCloseCallback ,
onAssistantClose ,
wrap_AssistantCloseCallback ,
AssistantEscapeCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantEscapeSignalInfo ,
#endif
C_AssistantEscapeCallback ,
afterAssistantEscape ,
genClosure_AssistantEscape ,
mk_AssistantEscapeCallback ,
noAssistantEscapeCallback ,
onAssistantEscape ,
wrap_AssistantEscapeCallback ,
AssistantPrepareCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantPrepareSignalInfo ,
#endif
C_AssistantPrepareCallback ,
afterAssistantPrepare ,
genClosure_AssistantPrepare ,
mk_AssistantPrepareCallback ,
noAssistantPrepareCallback ,
onAssistantPrepare ,
wrap_AssistantPrepareCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Objects.AssistantPage as Gtk.AssistantPage
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
newtype Assistant = Assistant (ManagedPtr Assistant)
deriving (Assistant -> Assistant -> Bool
(Assistant -> Assistant -> Bool)
-> (Assistant -> Assistant -> Bool) -> Eq Assistant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Assistant -> Assistant -> Bool
$c/= :: Assistant -> Assistant -> Bool
== :: Assistant -> Assistant -> Bool
$c== :: Assistant -> Assistant -> Bool
Eq)
foreign import ccall "gtk_assistant_get_type"
c_gtk_assistant_get_type :: IO GType
instance GObject Assistant where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_assistant_get_type
instance B.GValue.IsGValue Assistant where
toGValue :: Assistant -> IO GValue
toGValue o :: Assistant
o = do
GType
gtype <- IO GType
c_gtk_assistant_get_type
Assistant -> (Ptr Assistant -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Assistant
o (GType
-> (GValue -> Ptr Assistant -> IO ()) -> Ptr Assistant -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Assistant -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Assistant
fromGValue gv :: GValue
gv = do
Ptr Assistant
ptr <- GValue -> IO (Ptr Assistant)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Assistant)
(ManagedPtr Assistant -> Assistant)
-> Ptr Assistant -> IO Assistant
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Assistant -> Assistant
Assistant Ptr Assistant
ptr
class (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o
instance (GObject o, O.IsDescendantOf Assistant o) => IsAssistant o
instance O.HasParentTypes Assistant
type instance O.ParentTypes Assistant = '[Gtk.Window.Window, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Root.Root]
toAssistant :: (MonadIO m, IsAssistant o) => o -> m Assistant
toAssistant :: o -> m Assistant
toAssistant = IO Assistant -> m Assistant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Assistant -> m Assistant)
-> (o -> IO Assistant) -> o -> m Assistant
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Assistant -> Assistant) -> o -> IO Assistant
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Assistant -> Assistant
Assistant
noAssistant :: Maybe Assistant
noAssistant :: Maybe Assistant
noAssistant = Maybe Assistant
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAssistantMethod (t :: Symbol) (o :: *) :: * where
ResolveAssistantMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveAssistantMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveAssistantMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveAssistantMethod "activateKey" o = Gtk.Window.WindowActivateKeyMethodInfo
ResolveAssistantMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveAssistantMethod "addAccelGroup" o = Gtk.Window.WindowAddAccelGroupMethodInfo
ResolveAssistantMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveAssistantMethod "addActionWidget" o = AssistantAddActionWidgetMethodInfo
ResolveAssistantMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveAssistantMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveAssistantMethod "addMnemonic" o = Gtk.Window.WindowAddMnemonicMethodInfo
ResolveAssistantMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveAssistantMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveAssistantMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveAssistantMethod "appendPage" o = AssistantAppendPageMethodInfo
ResolveAssistantMethod "beginMoveDrag" o = Gtk.Window.WindowBeginMoveDragMethodInfo
ResolveAssistantMethod "beginResizeDrag" o = Gtk.Window.WindowBeginResizeDragMethodInfo
ResolveAssistantMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAssistantMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAssistantMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveAssistantMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveAssistantMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveAssistantMethod "close" o = Gtk.Window.WindowCloseMethodInfo
ResolveAssistantMethod "commit" o = AssistantCommitMethodInfo
ResolveAssistantMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveAssistantMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveAssistantMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveAssistantMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveAssistantMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveAssistantMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveAssistantMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveAssistantMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveAssistantMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveAssistantMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveAssistantMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveAssistantMethod "deiconify" o = Gtk.Window.WindowDeiconifyMethodInfo
ResolveAssistantMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveAssistantMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveAssistantMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveAssistantMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveAssistantMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveAssistantMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveAssistantMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveAssistantMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveAssistantMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveAssistantMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveAssistantMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveAssistantMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveAssistantMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveAssistantMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveAssistantMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveAssistantMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveAssistantMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveAssistantMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveAssistantMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveAssistantMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveAssistantMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveAssistantMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveAssistantMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveAssistantMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveAssistantMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveAssistantMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveAssistantMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveAssistantMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveAssistantMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveAssistantMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveAssistantMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveAssistantMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAssistantMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveAssistantMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAssistantMethod "fullscreen" o = Gtk.Window.WindowFullscreenMethodInfo
ResolveAssistantMethod "fullscreenOnMonitor" o = Gtk.Window.WindowFullscreenOnMonitorMethodInfo
ResolveAssistantMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAssistantMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveAssistantMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveAssistantMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveAssistantMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveAssistantMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveAssistantMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveAssistantMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo
ResolveAssistantMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveAssistantMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveAssistantMethod "iconify" o = Gtk.Window.WindowIconifyMethodInfo
ResolveAssistantMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveAssistantMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveAssistantMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveAssistantMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveAssistantMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveAssistantMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveAssistantMethod "insertPage" o = AssistantInsertPageMethodInfo
ResolveAssistantMethod "isActive" o = Gtk.Window.WindowIsActiveMethodInfo
ResolveAssistantMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveAssistantMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveAssistantMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAssistantMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveAssistantMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo
ResolveAssistantMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveAssistantMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveAssistantMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveAssistantMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveAssistantMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveAssistantMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveAssistantMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveAssistantMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveAssistantMethod "maximize" o = Gtk.Window.WindowMaximizeMethodInfo
ResolveAssistantMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveAssistantMethod "mnemonicActivate" o = Gtk.Window.WindowMnemonicActivateMethodInfo
ResolveAssistantMethod "nextPage" o = AssistantNextPageMethodInfo
ResolveAssistantMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAssistantMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAssistantMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveAssistantMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveAssistantMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveAssistantMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveAssistantMethod "prependPage" o = AssistantPrependPageMethodInfo
ResolveAssistantMethod "present" o = Gtk.Window.WindowPresentMethodInfo
ResolveAssistantMethod "presentWithTime" o = Gtk.Window.WindowPresentWithTimeMethodInfo
ResolveAssistantMethod "previousPage" o = AssistantPreviousPageMethodInfo
ResolveAssistantMethod "propagateKeyEvent" o = Gtk.Window.WindowPropagateKeyEventMethodInfo
ResolveAssistantMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveAssistantMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveAssistantMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveAssistantMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveAssistantMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveAssistantMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveAssistantMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAssistantMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAssistantMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveAssistantMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveAssistantMethod "removeAccelGroup" o = Gtk.Window.WindowRemoveAccelGroupMethodInfo
ResolveAssistantMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveAssistantMethod "removeActionWidget" o = AssistantRemoveActionWidgetMethodInfo
ResolveAssistantMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveAssistantMethod "removeMnemonic" o = Gtk.Window.WindowRemoveMnemonicMethodInfo
ResolveAssistantMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveAssistantMethod "removePage" o = AssistantRemovePageMethodInfo
ResolveAssistantMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveAssistantMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveAssistantMethod "resize" o = Gtk.Window.WindowResizeMethodInfo
ResolveAssistantMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAssistantMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveAssistantMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveAssistantMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveAssistantMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAssistantMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAssistantMethod "stick" o = Gtk.Window.WindowStickMethodInfo
ResolveAssistantMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAssistantMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveAssistantMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveAssistantMethod "unfullscreen" o = Gtk.Window.WindowUnfullscreenMethodInfo
ResolveAssistantMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveAssistantMethod "unmaximize" o = Gtk.Window.WindowUnmaximizeMethodInfo
ResolveAssistantMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveAssistantMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveAssistantMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAssistantMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveAssistantMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveAssistantMethod "unstick" o = Gtk.Window.WindowUnstickMethodInfo
ResolveAssistantMethod "updateButtonsState" o = AssistantUpdateButtonsStateMethodInfo
ResolveAssistantMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAssistantMethod "getAcceptFocus" o = Gtk.Window.WindowGetAcceptFocusMethodInfo
ResolveAssistantMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveAssistantMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveAssistantMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveAssistantMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveAssistantMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveAssistantMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveAssistantMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveAssistantMethod "getApplication" o = Gtk.Window.WindowGetApplicationMethodInfo
ResolveAssistantMethod "getAttachedTo" o = Gtk.Window.WindowGetAttachedToMethodInfo
ResolveAssistantMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveAssistantMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveAssistantMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveAssistantMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveAssistantMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveAssistantMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveAssistantMethod "getCurrentPage" o = AssistantGetCurrentPageMethodInfo
ResolveAssistantMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveAssistantMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAssistantMethod "getDecorated" o = Gtk.Window.WindowGetDecoratedMethodInfo
ResolveAssistantMethod "getDefaultSize" o = Gtk.Window.WindowGetDefaultSizeMethodInfo
ResolveAssistantMethod "getDefaultWidget" o = Gtk.Window.WindowGetDefaultWidgetMethodInfo
ResolveAssistantMethod "getDeletable" o = Gtk.Window.WindowGetDeletableMethodInfo
ResolveAssistantMethod "getDestroyWithParent" o = Gtk.Window.WindowGetDestroyWithParentMethodInfo
ResolveAssistantMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveAssistantMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveAssistantMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveAssistantMethod "getFocus" o = Gtk.Window.WindowGetFocusMethodInfo
ResolveAssistantMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveAssistantMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveAssistantMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveAssistantMethod "getFocusOnMap" o = Gtk.Window.WindowGetFocusOnMapMethodInfo
ResolveAssistantMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveAssistantMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo
ResolveAssistantMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveAssistantMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveAssistantMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveAssistantMethod "getGroup" o = Gtk.Window.WindowGetGroupMethodInfo
ResolveAssistantMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveAssistantMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveAssistantMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveAssistantMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveAssistantMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveAssistantMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveAssistantMethod "getHideOnClose" o = Gtk.Window.WindowGetHideOnCloseMethodInfo
ResolveAssistantMethod "getIconName" o = Gtk.Window.WindowGetIconNameMethodInfo
ResolveAssistantMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveAssistantMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveAssistantMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveAssistantMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveAssistantMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveAssistantMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveAssistantMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveAssistantMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveAssistantMethod "getMnemonicModifier" o = Gtk.Window.WindowGetMnemonicModifierMethodInfo
ResolveAssistantMethod "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo
ResolveAssistantMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo
ResolveAssistantMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveAssistantMethod "getNPages" o = AssistantGetNPagesMethodInfo
ResolveAssistantMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveAssistantMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveAssistantMethod "getNthPage" o = AssistantGetNthPageMethodInfo
ResolveAssistantMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveAssistantMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveAssistantMethod "getPage" o = AssistantGetPageMethodInfo
ResolveAssistantMethod "getPageComplete" o = AssistantGetPageCompleteMethodInfo
ResolveAssistantMethod "getPageTitle" o = AssistantGetPageTitleMethodInfo
ResolveAssistantMethod "getPageType" o = AssistantGetPageTypeMethodInfo
ResolveAssistantMethod "getPages" o = AssistantGetPagesMethodInfo
ResolveAssistantMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveAssistantMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveAssistantMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveAssistantMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveAssistantMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveAssistantMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveAssistantMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveAssistantMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAssistantMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAssistantMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveAssistantMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveAssistantMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveAssistantMethod "getResizable" o = Gtk.Window.WindowGetResizableMethodInfo
ResolveAssistantMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveAssistantMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveAssistantMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveAssistantMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveAssistantMethod "getSize" o = Gtk.Window.WindowGetSizeMethodInfo
ResolveAssistantMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveAssistantMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveAssistantMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveAssistantMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveAssistantMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveAssistantMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveAssistantMethod "getTitle" o = Gtk.Window.WindowGetTitleMethodInfo
ResolveAssistantMethod "getTitlebar" o = Gtk.Window.WindowGetTitlebarMethodInfo
ResolveAssistantMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveAssistantMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveAssistantMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveAssistantMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveAssistantMethod "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo
ResolveAssistantMethod "getTypeHint" o = Gtk.Window.WindowGetTypeHintMethodInfo
ResolveAssistantMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveAssistantMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveAssistantMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveAssistantMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveAssistantMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveAssistantMethod "getWindowType" o = Gtk.Window.WindowGetWindowTypeMethodInfo
ResolveAssistantMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveAssistantMethod "setAcceptFocus" o = Gtk.Window.WindowSetAcceptFocusMethodInfo
ResolveAssistantMethod "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo
ResolveAssistantMethod "setAttachedTo" o = Gtk.Window.WindowSetAttachedToMethodInfo
ResolveAssistantMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveAssistantMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveAssistantMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveAssistantMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveAssistantMethod "setCurrentPage" o = AssistantSetCurrentPageMethodInfo
ResolveAssistantMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveAssistantMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveAssistantMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAssistantMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAssistantMethod "setDecorated" o = Gtk.Window.WindowSetDecoratedMethodInfo
ResolveAssistantMethod "setDefaultSize" o = Gtk.Window.WindowSetDefaultSizeMethodInfo
ResolveAssistantMethod "setDefaultWidget" o = Gtk.Window.WindowSetDefaultWidgetMethodInfo
ResolveAssistantMethod "setDeletable" o = Gtk.Window.WindowSetDeletableMethodInfo
ResolveAssistantMethod "setDestroyWithParent" o = Gtk.Window.WindowSetDestroyWithParentMethodInfo
ResolveAssistantMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveAssistantMethod "setDisplay" o = Gtk.Window.WindowSetDisplayMethodInfo
ResolveAssistantMethod "setFocus" o = Gtk.Window.WindowSetFocusMethodInfo
ResolveAssistantMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveAssistantMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveAssistantMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveAssistantMethod "setFocusOnMap" o = Gtk.Window.WindowSetFocusOnMapMethodInfo
ResolveAssistantMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveAssistantMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo
ResolveAssistantMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveAssistantMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveAssistantMethod "setForwardPageFunc" o = AssistantSetForwardPageFuncMethodInfo
ResolveAssistantMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveAssistantMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveAssistantMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveAssistantMethod "setHasUserRefCount" o = Gtk.Window.WindowSetHasUserRefCountMethodInfo
ResolveAssistantMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveAssistantMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveAssistantMethod "setHideOnClose" o = Gtk.Window.WindowSetHideOnCloseMethodInfo
ResolveAssistantMethod "setIconName" o = Gtk.Window.WindowSetIconNameMethodInfo
ResolveAssistantMethod "setKeepAbove" o = Gtk.Window.WindowSetKeepAboveMethodInfo
ResolveAssistantMethod "setKeepBelow" o = Gtk.Window.WindowSetKeepBelowMethodInfo
ResolveAssistantMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveAssistantMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveAssistantMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveAssistantMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveAssistantMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveAssistantMethod "setMnemonicModifier" o = Gtk.Window.WindowSetMnemonicModifierMethodInfo
ResolveAssistantMethod "setMnemonicsVisible" o = Gtk.Window.WindowSetMnemonicsVisibleMethodInfo
ResolveAssistantMethod "setModal" o = Gtk.Window.WindowSetModalMethodInfo
ResolveAssistantMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveAssistantMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveAssistantMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveAssistantMethod "setPageComplete" o = AssistantSetPageCompleteMethodInfo
ResolveAssistantMethod "setPageTitle" o = AssistantSetPageTitleMethodInfo
ResolveAssistantMethod "setPageType" o = AssistantSetPageTypeMethodInfo
ResolveAssistantMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveAssistantMethod "setPosition" o = Gtk.Window.WindowSetPositionMethodInfo
ResolveAssistantMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAssistantMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveAssistantMethod "setResizable" o = Gtk.Window.WindowSetResizableMethodInfo
ResolveAssistantMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveAssistantMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveAssistantMethod "setStartupId" o = Gtk.Window.WindowSetStartupIdMethodInfo
ResolveAssistantMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveAssistantMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveAssistantMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveAssistantMethod "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo
ResolveAssistantMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo
ResolveAssistantMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveAssistantMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveAssistantMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveAssistantMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo
ResolveAssistantMethod "setTypeHint" o = Gtk.Window.WindowSetTypeHintMethodInfo
ResolveAssistantMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveAssistantMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveAssistantMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveAssistantMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveAssistantMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAssistantMethod t Assistant, O.MethodInfo info Assistant p) => OL.IsLabel t (Assistant -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type AssistantApplyCallback =
IO ()
noAssistantApplyCallback :: Maybe AssistantApplyCallback
noAssistantApplyCallback :: Maybe (IO ())
noAssistantApplyCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_AssistantApplyCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantApplyCallback :: C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
genClosure_AssistantApply :: MonadIO m => AssistantApplyCallback -> m (GClosure C_AssistantApplyCallback)
genClosure_AssistantApply :: IO () -> m (GClosure C_AssistantApplyCallback)
genClosure_AssistantApply cb :: IO ()
cb = IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantApplyCallback IO ()
cb
C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantApplyCallback C_AssistantApplyCallback
cb' IO (FunPtr C_AssistantApplyCallback)
-> (FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantApplyCallback ::
AssistantApplyCallback ->
C_AssistantApplyCallback
wrap_AssistantApplyCallback :: IO () -> C_AssistantApplyCallback
wrap_AssistantApplyCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onAssistantApply :: (IsAssistant a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
onAssistantApply :: a -> IO () -> m SignalHandlerId
onAssistantApply obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantApplyCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantApplyCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "apply" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantApply :: (IsAssistant a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
afterAssistantApply :: a -> IO () -> m SignalHandlerId
afterAssistantApply obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantApplyCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantApplyCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "apply" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AssistantApplySignalInfo
instance SignalInfo AssistantApplySignalInfo where
type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AssistantApplyCallback cb
cb'' <- mk_AssistantApplyCallback cb'
connectSignalFunPtr obj "apply" cb'' connectMode detail
#endif
type AssistantCancelCallback =
IO ()
noAssistantCancelCallback :: Maybe AssistantCancelCallback
noAssistantCancelCallback :: Maybe (IO ())
noAssistantCancelCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_AssistantCancelCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantCancelCallback :: C_AssistantCancelCallback -> IO (FunPtr C_AssistantCancelCallback)
genClosure_AssistantCancel :: MonadIO m => AssistantCancelCallback -> m (GClosure C_AssistantCancelCallback)
genClosure_AssistantCancel :: IO () -> m (GClosure C_AssistantApplyCallback)
genClosure_AssistantCancel cb :: IO ()
cb = IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCancelCallback IO ()
cb
C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCancelCallback C_AssistantApplyCallback
cb' IO (FunPtr C_AssistantApplyCallback)
-> (FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantCancelCallback ::
AssistantCancelCallback ->
C_AssistantCancelCallback
wrap_AssistantCancelCallback :: IO () -> C_AssistantApplyCallback
wrap_AssistantCancelCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onAssistantCancel :: (IsAssistant a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
onAssistantCancel :: a -> IO () -> m SignalHandlerId
onAssistantCancel obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCancelCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCancelCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cancel" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantCancel :: (IsAssistant a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
afterAssistantCancel :: a -> IO () -> m SignalHandlerId
afterAssistantCancel obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCancelCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCancelCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cancel" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AssistantCancelSignalInfo
instance SignalInfo AssistantCancelSignalInfo where
type HaskellCallbackType AssistantCancelSignalInfo = AssistantCancelCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AssistantCancelCallback cb
cb'' <- mk_AssistantCancelCallback cb'
connectSignalFunPtr obj "cancel" cb'' connectMode detail
#endif
type AssistantCloseCallback =
IO ()
noAssistantCloseCallback :: Maybe AssistantCloseCallback
noAssistantCloseCallback :: Maybe (IO ())
noAssistantCloseCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_AssistantCloseCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantCloseCallback :: C_AssistantCloseCallback -> IO (FunPtr C_AssistantCloseCallback)
genClosure_AssistantClose :: MonadIO m => AssistantCloseCallback -> m (GClosure C_AssistantCloseCallback)
genClosure_AssistantClose :: IO () -> m (GClosure C_AssistantApplyCallback)
genClosure_AssistantClose cb :: IO ()
cb = IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCloseCallback IO ()
cb
C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCloseCallback C_AssistantApplyCallback
cb' IO (FunPtr C_AssistantApplyCallback)
-> (FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantCloseCallback ::
AssistantCloseCallback ->
C_AssistantCloseCallback
wrap_AssistantCloseCallback :: IO () -> C_AssistantApplyCallback
wrap_AssistantCloseCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onAssistantClose :: (IsAssistant a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
onAssistantClose :: a -> IO () -> m SignalHandlerId
onAssistantClose obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCloseCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCloseCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantClose :: (IsAssistant a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
afterAssistantClose :: a -> IO () -> m SignalHandlerId
afterAssistantClose obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantCloseCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCloseCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AssistantCloseSignalInfo
instance SignalInfo AssistantCloseSignalInfo where
type HaskellCallbackType AssistantCloseSignalInfo = AssistantCloseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AssistantCloseCallback cb
cb'' <- mk_AssistantCloseCallback cb'
connectSignalFunPtr obj "close" cb'' connectMode detail
#endif
type AssistantEscapeCallback =
IO ()
noAssistantEscapeCallback :: Maybe AssistantEscapeCallback
noAssistantEscapeCallback :: Maybe (IO ())
noAssistantEscapeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_AssistantEscapeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantEscapeCallback :: C_AssistantEscapeCallback -> IO (FunPtr C_AssistantEscapeCallback)
genClosure_AssistantEscape :: MonadIO m => AssistantEscapeCallback -> m (GClosure C_AssistantEscapeCallback)
genClosure_AssistantEscape :: IO () -> m (GClosure C_AssistantApplyCallback)
genClosure_AssistantEscape cb :: IO ()
cb = IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
-> m (GClosure C_AssistantApplyCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback IO ()
cb
C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantEscapeCallback C_AssistantApplyCallback
cb' IO (FunPtr C_AssistantApplyCallback)
-> (FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback))
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantApplyCallback
-> IO (GClosure C_AssistantApplyCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantEscapeCallback ::
AssistantEscapeCallback ->
C_AssistantEscapeCallback
wrap_AssistantEscapeCallback :: IO () -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onAssistantEscape :: (IsAssistant a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
onAssistantEscape :: a -> IO () -> m SignalHandlerId
onAssistantEscape obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantEscapeCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "escape" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantEscape :: (IsAssistant a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
afterAssistantEscape :: a -> IO () -> m SignalHandlerId
afterAssistantEscape obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantApplyCallback
cb' = IO () -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback IO ()
cb
FunPtr C_AssistantApplyCallback
cb'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantEscapeCallback C_AssistantApplyCallback
cb'
a
-> Text
-> FunPtr C_AssistantApplyCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "escape" FunPtr C_AssistantApplyCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AssistantEscapeSignalInfo
instance SignalInfo AssistantEscapeSignalInfo where
type HaskellCallbackType AssistantEscapeSignalInfo = AssistantEscapeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AssistantEscapeCallback cb
cb'' <- mk_AssistantEscapeCallback cb'
connectSignalFunPtr obj "escape" cb'' connectMode detail
#endif
type AssistantPrepareCallback =
Gtk.Widget.Widget
-> IO ()
noAssistantPrepareCallback :: Maybe AssistantPrepareCallback
noAssistantPrepareCallback :: Maybe AssistantPrepareCallback
noAssistantPrepareCallback = Maybe AssistantPrepareCallback
forall a. Maybe a
Nothing
type C_AssistantPrepareCallback =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantPrepareCallback :: C_AssistantPrepareCallback -> IO (FunPtr C_AssistantPrepareCallback)
genClosure_AssistantPrepare :: MonadIO m => AssistantPrepareCallback -> m (GClosure C_AssistantPrepareCallback)
genClosure_AssistantPrepare :: AssistantPrepareCallback -> m (GClosure C_AssistantPrepareCallback)
genClosure_AssistantPrepare cb :: AssistantPrepareCallback
cb = IO (GClosure C_AssistantPrepareCallback)
-> m (GClosure C_AssistantPrepareCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_AssistantPrepareCallback)
-> m (GClosure C_AssistantPrepareCallback))
-> IO (GClosure C_AssistantPrepareCallback)
-> m (GClosure C_AssistantPrepareCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_AssistantPrepareCallback
cb' = AssistantPrepareCallback -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback AssistantPrepareCallback
cb
C_AssistantPrepareCallback
-> IO (FunPtr C_AssistantPrepareCallback)
mk_AssistantPrepareCallback C_AssistantPrepareCallback
cb' IO (FunPtr C_AssistantPrepareCallback)
-> (FunPtr C_AssistantPrepareCallback
-> IO (GClosure C_AssistantPrepareCallback))
-> IO (GClosure C_AssistantPrepareCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_AssistantPrepareCallback
-> IO (GClosure C_AssistantPrepareCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_AssistantPrepareCallback ::
AssistantPrepareCallback ->
C_AssistantPrepareCallback
wrap_AssistantPrepareCallback :: AssistantPrepareCallback -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback _cb :: AssistantPrepareCallback
_cb _ page :: Ptr Widget
page _ = 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
AssistantPrepareCallback
_cb Widget
page'
onAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
onAssistantPrepare :: a -> AssistantPrepareCallback -> m SignalHandlerId
onAssistantPrepare obj :: a
obj cb :: AssistantPrepareCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantPrepareCallback
cb' = AssistantPrepareCallback -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback AssistantPrepareCallback
cb
FunPtr C_AssistantPrepareCallback
cb'' <- C_AssistantPrepareCallback
-> IO (FunPtr C_AssistantPrepareCallback)
mk_AssistantPrepareCallback C_AssistantPrepareCallback
cb'
a
-> Text
-> FunPtr C_AssistantPrepareCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "prepare" FunPtr C_AssistantPrepareCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
afterAssistantPrepare :: a -> AssistantPrepareCallback -> m SignalHandlerId
afterAssistantPrepare obj :: a
obj cb :: AssistantPrepareCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_AssistantPrepareCallback
cb' = AssistantPrepareCallback -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback AssistantPrepareCallback
cb
FunPtr C_AssistantPrepareCallback
cb'' <- C_AssistantPrepareCallback
-> IO (FunPtr C_AssistantPrepareCallback)
mk_AssistantPrepareCallback C_AssistantPrepareCallback
cb'
a
-> Text
-> FunPtr C_AssistantPrepareCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "prepare" FunPtr C_AssistantPrepareCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AssistantPrepareSignalInfo
instance SignalInfo AssistantPrepareSignalInfo where
type HaskellCallbackType AssistantPrepareSignalInfo = AssistantPrepareCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AssistantPrepareCallback cb
cb'' <- mk_AssistantPrepareCallback cb'
connectSignalFunPtr obj "prepare" cb'' connectMode detail
#endif
getAssistantPages :: (MonadIO m, IsAssistant o) => o -> m (Maybe Gio.ListModel.ListModel)
getAssistantPages :: o -> m (Maybe ListModel)
getAssistantPages obj :: o
obj = IO (Maybe ListModel) -> m (Maybe ListModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListModel) -> m (Maybe ListModel))
-> IO (Maybe ListModel) -> m (Maybe ListModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListModel -> ListModel)
-> IO (Maybe ListModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "pages" ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel
#if defined(ENABLE_OVERLOADING)
data AssistantPagesPropertyInfo
instance AttrInfo AssistantPagesPropertyInfo where
type AttrAllowedOps AssistantPagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AssistantPagesPropertyInfo = IsAssistant
type AttrSetTypeConstraint AssistantPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint AssistantPagesPropertyInfo = (~) ()
type AttrTransferType AssistantPagesPropertyInfo = ()
type AttrGetType AssistantPagesPropertyInfo = (Maybe Gio.ListModel.ListModel)
type AttrLabel AssistantPagesPropertyInfo = "pages"
type AttrOrigin AssistantPagesPropertyInfo = Assistant
attrGet = getAssistantPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getAssistantUseHeaderBar :: (MonadIO m, IsAssistant o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "use-header-bar"
constructAssistantUseHeaderBar :: (IsAssistant o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "use-header-bar" Int32
val
#if defined(ENABLE_OVERLOADING)
data AssistantUseHeaderBarPropertyInfo
instance AttrInfo AssistantUseHeaderBarPropertyInfo where
type AttrAllowedOps AssistantUseHeaderBarPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AssistantUseHeaderBarPropertyInfo = IsAssistant
type AttrSetTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32
type AttrTransferTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32
type AttrTransferType AssistantUseHeaderBarPropertyInfo = Int32
type AttrGetType AssistantUseHeaderBarPropertyInfo = Int32
type AttrLabel AssistantUseHeaderBarPropertyInfo = "use-header-bar"
type AttrOrigin AssistantUseHeaderBarPropertyInfo = Assistant
attrGet = getAssistantUseHeaderBar
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructAssistantUseHeaderBar
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Assistant
type instance O.AttributeList Assistant = AssistantAttributeList
type AssistantAttributeList = ('[ '("acceptFocus", Gtk.Window.WindowAcceptFocusPropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("attachedTo", Gtk.Window.WindowAttachedToPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("decorated", Gtk.Window.WindowDecoratedPropertyInfo), '("defaultHeight", Gtk.Window.WindowDefaultHeightPropertyInfo), '("defaultWidget", Gtk.Window.WindowDefaultWidgetPropertyInfo), '("defaultWidth", Gtk.Window.WindowDefaultWidthPropertyInfo), '("deletable", Gtk.Window.WindowDeletablePropertyInfo), '("destroyWithParent", Gtk.Window.WindowDestroyWithParentPropertyInfo), '("display", Gtk.Window.WindowDisplayPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", Gtk.Window.WindowFocusOnMapPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("focusWidget", Gtk.Root.RootFocusWidgetPropertyInfo), '("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), '("hideOnClose", Gtk.Window.WindowHideOnClosePropertyInfo), '("iconName", Gtk.Window.WindowIconNamePropertyInfo), '("isActive", Gtk.Window.WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", Gtk.Window.WindowIsMaximizedPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", Gtk.Window.WindowMnemonicsVisiblePropertyInfo), '("modal", Gtk.Window.WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("pages", AssistantPagesPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", Gtk.Window.WindowResizablePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("startupId", Gtk.Window.WindowStartupIdPropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("title", Gtk.Window.WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("type", Gtk.Window.WindowTypePropertyInfo), '("typeHint", Gtk.Window.WindowTypeHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("windowPosition", Gtk.Window.WindowWindowPositionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
assistantPages :: AttrLabelProxy "pages"
assistantPages = AttrLabelProxy
assistantUseHeaderBar :: AttrLabelProxy "useHeaderBar"
assistantUseHeaderBar = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Assistant = AssistantSignalList
type AssistantSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("close", AssistantCloseSignalInfo), '("closeRequest", Gtk.Window.WindowCloseRequestSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("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), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("escape", AssistantEscapeSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", Gtk.Window.WindowKeysChangedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_assistant_new" gtk_assistant_new ::
IO (Ptr Assistant)
assistantNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Assistant
assistantNew :: m Assistant
assistantNew = IO Assistant -> m Assistant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Assistant -> m Assistant) -> IO Assistant -> m Assistant
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
result <- IO (Ptr Assistant)
gtk_assistant_new
Text -> Ptr Assistant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "assistantNew" Ptr Assistant
result
Assistant
result' <- ((ManagedPtr Assistant -> Assistant)
-> Ptr Assistant -> IO Assistant
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Assistant -> Assistant
Assistant) Ptr Assistant
result
Assistant -> IO Assistant
forall (m :: * -> *) a. Monad m => a -> m a
return Assistant
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_assistant_add_action_widget" gtk_assistant_add_action_widget ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO ()
assistantAddActionWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
assistantAddActionWidget :: a -> b -> m ()
assistantAddActionWidget assistant :: a
assistant child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Assistant -> Ptr Widget -> IO ()
gtk_assistant_add_action_widget Ptr Assistant
assistant' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantAddActionWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantAddActionWidgetMethodInfo a signature where
overloadedMethod = assistantAddActionWidget
#endif
foreign import ccall "gtk_assistant_append_page" gtk_assistant_append_page ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO Int32
assistantAppendPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Int32
assistantAppendPage :: a -> b -> m Int32
assistantAppendPage assistant :: a
assistant page :: b
page = IO Int32 -> m Int32
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Int32
result <- Ptr Assistant -> Ptr Widget -> IO Int32
gtk_assistant_append_page Ptr Assistant
assistant' Ptr Widget
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data AssistantAppendPageMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantAppendPageMethodInfo a signature where
overloadedMethod = assistantAppendPage
#endif
foreign import ccall "gtk_assistant_commit" gtk_assistant_commit ::
Ptr Assistant ->
IO ()
assistantCommit ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m ()
assistantCommit :: a -> m ()
assistantCommit assistant :: a
assistant = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> IO ()
gtk_assistant_commit Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantCommitMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantCommitMethodInfo a signature where
overloadedMethod = assistantCommit
#endif
foreign import ccall "gtk_assistant_get_current_page" gtk_assistant_get_current_page ::
Ptr Assistant ->
IO Int32
assistantGetCurrentPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m Int32
assistantGetCurrentPage :: a -> m Int32
assistantGetCurrentPage assistant :: a
assistant = IO Int32 -> m Int32
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Int32
result <- Ptr Assistant -> IO Int32
gtk_assistant_get_current_page Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data AssistantGetCurrentPageMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetCurrentPageMethodInfo a signature where
overloadedMethod = assistantGetCurrentPage
#endif
foreign import ccall "gtk_assistant_get_n_pages" gtk_assistant_get_n_pages ::
Ptr Assistant ->
IO Int32
assistantGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m Int32
assistantGetNPages :: a -> m Int32
assistantGetNPages assistant :: a
assistant = IO Int32 -> m Int32
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Int32
result <- Ptr Assistant -> IO Int32
gtk_assistant_get_n_pages Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data AssistantGetNPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetNPagesMethodInfo a signature where
overloadedMethod = assistantGetNPages
#endif
foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page ::
Ptr Assistant ->
Int32 ->
IO (Ptr Gtk.Widget.Widget)
assistantGetNthPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> Int32
-> m (Maybe Gtk.Widget.Widget)
assistantGetNthPage :: a -> Int32 -> m (Maybe Widget)
assistantGetNthPage assistant :: a
assistant pageNum :: Int32
pageNum = IO (Maybe Widget) -> m (Maybe Widget)
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
result <- Ptr Assistant -> Int32 -> IO (Ptr Widget)
gtk_assistant_get_nth_page Ptr Assistant
assistant' 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
$ \result' :: 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 (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data AssistantGetNthPageMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetNthPageMethodInfo a signature where
overloadedMethod = assistantGetNthPage
#endif
foreign import ccall "gtk_assistant_get_page" gtk_assistant_get_page ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.AssistantPage.AssistantPage)
assistantGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Gtk.AssistantPage.AssistantPage
assistantGetPage :: a -> b -> m AssistantPage
assistantGetPage assistant :: a
assistant child :: b
child = IO AssistantPage -> m AssistantPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AssistantPage -> m AssistantPage)
-> IO AssistantPage -> m AssistantPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr AssistantPage
result <- Ptr Assistant -> Ptr Widget -> IO (Ptr AssistantPage)
gtk_assistant_get_page Ptr Assistant
assistant' Ptr Widget
child'
Text -> Ptr AssistantPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "assistantGetPage" Ptr AssistantPage
result
AssistantPage
result' <- ((ManagedPtr AssistantPage -> AssistantPage)
-> Ptr AssistantPage -> IO AssistantPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AssistantPage -> AssistantPage
Gtk.AssistantPage.AssistantPage) Ptr AssistantPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
AssistantPage -> IO AssistantPage
forall (m :: * -> *) a. Monad m => a -> m a
return AssistantPage
result'
#if defined(ENABLE_OVERLOADING)
data AssistantGetPageMethodInfo
instance (signature ~ (b -> m Gtk.AssistantPage.AssistantPage), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageMethodInfo a signature where
overloadedMethod = assistantGetPage
#endif
foreign import ccall "gtk_assistant_get_page_complete" gtk_assistant_get_page_complete ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO CInt
assistantGetPageComplete ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Bool
assistantGetPageComplete :: a -> b -> m Bool
assistantGetPageComplete assistant :: a
assistant page :: b
page = IO Bool -> m Bool
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CInt
result <- Ptr Assistant -> Ptr Widget -> IO CInt
gtk_assistant_get_page_complete Ptr Assistant
assistant' Ptr Widget
page'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AssistantGetPageCompleteMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageCompleteMethodInfo a signature where
overloadedMethod = assistantGetPageComplete
#endif
foreign import ccall "gtk_assistant_get_page_title" gtk_assistant_get_page_title ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO CString
assistantGetPageTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m T.Text
assistantGetPageTitle :: a -> b -> m Text
assistantGetPageTitle assistant :: a
assistant page :: b
page = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CString
result <- Ptr Assistant -> Ptr Widget -> IO CString
gtk_assistant_get_page_title Ptr Assistant
assistant' Ptr Widget
page'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "assistantGetPageTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AssistantGetPageTitleMethodInfo
instance (signature ~ (b -> m T.Text), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageTitleMethodInfo a signature where
overloadedMethod = assistantGetPageTitle
#endif
foreign import ccall "gtk_assistant_get_page_type" gtk_assistant_get_page_type ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO CUInt
assistantGetPageType ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Gtk.Enums.AssistantPageType
assistantGetPageType :: a -> b -> m AssistantPageType
assistantGetPageType assistant :: a
assistant page :: b
page = IO AssistantPageType -> m AssistantPageType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AssistantPageType -> m AssistantPageType)
-> IO AssistantPageType -> m AssistantPageType
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CUInt
result <- Ptr Assistant -> Ptr Widget -> IO CUInt
gtk_assistant_get_page_type Ptr Assistant
assistant' Ptr Widget
page'
let result' :: AssistantPageType
result' = (Int -> AssistantPageType
forall a. Enum a => Int -> a
toEnum (Int -> AssistantPageType)
-> (CUInt -> Int) -> CUInt -> AssistantPageType
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
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
AssistantPageType -> IO AssistantPageType
forall (m :: * -> *) a. Monad m => a -> m a
return AssistantPageType
result'
#if defined(ENABLE_OVERLOADING)
data AssistantGetPageTypeMethodInfo
instance (signature ~ (b -> m Gtk.Enums.AssistantPageType), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantGetPageTypeMethodInfo a signature where
overloadedMethod = assistantGetPageType
#endif
foreign import ccall "gtk_assistant_get_pages" gtk_assistant_get_pages ::
Ptr Assistant ->
IO (Ptr Gio.ListModel.ListModel)
assistantGetPages ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m Gio.ListModel.ListModel
assistantGetPages :: a -> m ListModel
assistantGetPages assistant :: a
assistant = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr ListModel
result <- Ptr Assistant -> IO (Ptr ListModel)
gtk_assistant_get_pages Ptr Assistant
assistant'
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "assistantGetPages" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
ListModel -> IO ListModel
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result'
#if defined(ENABLE_OVERLOADING)
data AssistantGetPagesMethodInfo
instance (signature ~ (m Gio.ListModel.ListModel), MonadIO m, IsAssistant a) => O.MethodInfo AssistantGetPagesMethodInfo a signature where
overloadedMethod = assistantGetPages
#endif
foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO Int32
assistantInsertPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m Int32
assistantInsertPage :: a -> b -> Int32 -> m Int32
assistantInsertPage assistant :: a
assistant page :: b
page position :: Int32
position = IO Int32 -> m Int32
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Int32
result <- Ptr Assistant -> Ptr Widget -> Int32 -> IO Int32
gtk_assistant_insert_page Ptr Assistant
assistant' Ptr Widget
page' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data AssistantInsertPageMethodInfo
instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantInsertPageMethodInfo a signature where
overloadedMethod = assistantInsertPage
#endif
foreign import ccall "gtk_assistant_next_page" gtk_assistant_next_page ::
Ptr Assistant ->
IO ()
assistantNextPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m ()
assistantNextPage :: a -> m ()
assistantNextPage assistant :: a
assistant = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> IO ()
gtk_assistant_next_page Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantNextPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantNextPageMethodInfo a signature where
overloadedMethod = assistantNextPage
#endif
foreign import ccall "gtk_assistant_prepend_page" gtk_assistant_prepend_page ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO Int32
assistantPrependPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Int32
assistantPrependPage :: a -> b -> m Int32
assistantPrependPage assistant :: a
assistant page :: b
page = IO Int32 -> m Int32
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 Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
Int32
result <- Ptr Assistant -> Ptr Widget -> IO Int32
gtk_assistant_prepend_page Ptr Assistant
assistant' Ptr Widget
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data AssistantPrependPageMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantPrependPageMethodInfo a signature where
overloadedMethod = assistantPrependPage
#endif
foreign import ccall "gtk_assistant_previous_page" gtk_assistant_previous_page ::
Ptr Assistant ->
IO ()
assistantPreviousPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m ()
assistantPreviousPage :: a -> m ()
assistantPreviousPage assistant :: a
assistant = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> IO ()
gtk_assistant_previous_page Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantPreviousPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantPreviousPageMethodInfo a signature where
overloadedMethod = assistantPreviousPage
#endif
foreign import ccall "gtk_assistant_remove_action_widget" gtk_assistant_remove_action_widget ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
IO ()
assistantRemoveActionWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
assistantRemoveActionWidget :: a -> b -> m ()
assistantRemoveActionWidget assistant :: a
assistant child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Assistant -> Ptr Widget -> IO ()
gtk_assistant_remove_action_widget Ptr Assistant
assistant' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantRemoveActionWidgetMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantRemoveActionWidgetMethodInfo a signature where
overloadedMethod = assistantRemoveActionWidget
#endif
foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page ::
Ptr Assistant ->
Int32 ->
IO ()
assistantRemovePage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> Int32
-> m ()
assistantRemovePage :: a -> Int32 -> m ()
assistantRemovePage assistant :: a
assistant pageNum :: Int32
pageNum = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> Int32 -> IO ()
gtk_assistant_remove_page Ptr Assistant
assistant' Int32
pageNum
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantRemovePageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantRemovePageMethodInfo a signature where
overloadedMethod = assistantRemovePage
#endif
foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page ::
Ptr Assistant ->
Int32 ->
IO ()
assistantSetCurrentPage ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> Int32
-> m ()
assistantSetCurrentPage :: a -> Int32 -> m ()
assistantSetCurrentPage assistant :: a
assistant pageNum :: Int32
pageNum = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> Int32 -> IO ()
gtk_assistant_set_current_page Ptr Assistant
assistant' Int32
pageNum
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetCurrentPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantSetCurrentPageMethodInfo a signature where
overloadedMethod = assistantSetCurrentPage
#endif
foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func ::
Ptr Assistant ->
FunPtr Gtk.Callbacks.C_AssistantPageFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
assistantSetForwardPageFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> Maybe (Gtk.Callbacks.AssistantPageFunc)
-> m ()
assistantSetForwardPageFunc :: a -> Maybe (Int32 -> IO Int32) -> m ()
assistantSetForwardPageFunc assistant :: a
assistant pageFunc :: Maybe (Int32 -> IO Int32)
pageFunc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
FunPtr C_AssistantPageFunc
maybePageFunc <- case Maybe (Int32 -> IO Int32)
pageFunc of
Nothing -> FunPtr C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AssistantPageFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jPageFunc :: Int32 -> IO Int32
jPageFunc -> do
FunPtr C_AssistantPageFunc
jPageFunc' <- C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
Gtk.Callbacks.mk_AssistantPageFunc (Maybe (Ptr (FunPtr C_AssistantPageFunc))
-> C_AssistantPageFunc -> C_AssistantPageFunc
Gtk.Callbacks.wrap_AssistantPageFunc Maybe (Ptr (FunPtr C_AssistantPageFunc))
forall a. Maybe a
Nothing ((Int32 -> IO Int32) -> C_AssistantPageFunc
Gtk.Callbacks.drop_closures_AssistantPageFunc Int32 -> IO Int32
jPageFunc))
FunPtr C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AssistantPageFunc
jPageFunc'
let data_ :: Ptr ()
data_ = FunPtr C_AssistantPageFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_AssistantPageFunc
maybePageFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr Assistant
-> FunPtr C_AssistantPageFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_assistant_set_forward_page_func Ptr Assistant
assistant' FunPtr C_AssistantPageFunc
maybePageFunc Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetForwardPageFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.AssistantPageFunc) -> m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantSetForwardPageFuncMethodInfo a signature where
overloadedMethod = assistantSetForwardPageFunc
#endif
foreign import ccall "gtk_assistant_set_page_complete" gtk_assistant_set_page_complete ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
assistantSetPageComplete ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
assistantSetPageComplete :: a -> b -> Bool -> m ()
assistantSetPageComplete assistant :: a
assistant page :: b
page complete :: Bool
complete = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
let complete' :: CInt
complete' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
complete
Ptr Assistant -> Ptr Widget -> CInt -> IO ()
gtk_assistant_set_page_complete Ptr Assistant
assistant' Ptr Widget
page' CInt
complete'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetPageCompleteMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageCompleteMethodInfo a signature where
overloadedMethod = assistantSetPageComplete
#endif
foreign import ccall "gtk_assistant_set_page_title" gtk_assistant_set_page_title ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
CString ->
IO ()
assistantSetPageTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> m ()
assistantSetPageTitle :: a -> b -> Text -> m ()
assistantSetPageTitle assistant :: a
assistant page :: b
page title :: Text
title = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Assistant -> Ptr Widget -> CString -> IO ()
gtk_assistant_set_page_title Ptr Assistant
assistant' Ptr Widget
page' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetPageTitleMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageTitleMethodInfo a signature where
overloadedMethod = assistantSetPageTitle
#endif
foreign import ccall "gtk_assistant_set_page_type" gtk_assistant_set_page_type ::
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
assistantSetPageType ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Gtk.Enums.AssistantPageType
-> m ()
assistantSetPageType :: a -> b -> AssistantPageType -> m ()
assistantSetPageType assistant :: a
assistant page :: b
page type_ :: AssistantPageType
type_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Widget
page' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
page
let type_' :: CUInt
type_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (AssistantPageType -> Int) -> AssistantPageType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AssistantPageType -> Int
forall a. Enum a => a -> Int
fromEnum) AssistantPageType
type_
Ptr Assistant -> Ptr Widget -> CUInt -> IO ()
gtk_assistant_set_page_type Ptr Assistant
assistant' Ptr Widget
page' CUInt
type_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
page
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetPageTypeMethodInfo
instance (signature ~ (b -> Gtk.Enums.AssistantPageType -> m ()), MonadIO m, IsAssistant a, Gtk.Widget.IsWidget b) => O.MethodInfo AssistantSetPageTypeMethodInfo a signature where
overloadedMethod = assistantSetPageType
#endif
foreign import ccall "gtk_assistant_update_buttons_state" gtk_assistant_update_buttons_state ::
Ptr Assistant ->
IO ()
assistantUpdateButtonsState ::
(B.CallStack.HasCallStack, MonadIO m, IsAssistant a) =>
a
-> m ()
assistantUpdateButtonsState :: a -> m ()
assistantUpdateButtonsState assistant :: a
assistant = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Assistant
assistant' <- a -> IO (Ptr Assistant)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
assistant
Ptr Assistant -> IO ()
gtk_assistant_update_buttons_state Ptr Assistant
assistant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantUpdateButtonsStateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.MethodInfo AssistantUpdateButtonsStateMethodInfo a signature where
overloadedMethod = assistantUpdateButtonsState
#endif