{-# LANGUAGE ImplicitParams, RankNTypes, 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 ,
#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
afterAssistantApply ,
onAssistantApply ,
AssistantCancelCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantCancelSignalInfo ,
#endif
afterAssistantCancel ,
onAssistantCancel ,
AssistantCloseCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantCloseSignalInfo ,
#endif
afterAssistantClose ,
onAssistantClose ,
AssistantEscapeCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantEscapeSignalInfo ,
#endif
afterAssistantEscape ,
onAssistantEscape ,
AssistantPrepareCallback ,
#if defined(ENABLE_OVERLOADING)
AssistantPrepareSignalInfo ,
#endif
afterAssistantPrepare ,
onAssistantPrepare ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.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.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ShortcutManager as Gtk.ShortcutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.AssistantPage as Gtk.AssistantPage
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
newtype Assistant = Assistant (SP.ManagedPtr Assistant)
deriving (Assistant -> Assistant -> Bool
(Assistant -> Assistant -> Bool)
-> (Assistant -> Assistant -> Bool) -> Eq Assistant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Assistant -> Assistant -> Bool
== :: Assistant -> Assistant -> Bool
$c/= :: Assistant -> Assistant -> Bool
/= :: Assistant -> Assistant -> Bool
Eq)
instance SP.ManagedPtrNewtype Assistant where
toManagedPtr :: Assistant -> ManagedPtr Assistant
toManagedPtr (Assistant ManagedPtr Assistant
p) = ManagedPtr Assistant
p
foreign import ccall "gtk_assistant_get_type"
c_gtk_assistant_get_type :: IO B.Types.GType
instance B.Types.TypedObject Assistant where
glibType :: IO GType
glibType = IO GType
c_gtk_assistant_get_type
instance B.Types.GObject Assistant
class (SP.GObject o, O.IsDescendantOf Assistant o) => IsAssistant o
instance (SP.GObject o, O.IsDescendantOf Assistant o) => IsAssistant o
instance O.HasParentTypes Assistant
type instance O.ParentTypes Assistant = '[Gtk.Window.Window, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Native.Native, Gtk.Root.Root, Gtk.ShortcutManager.ShortcutManager]
toAssistant :: (MIO.MonadIO m, IsAssistant o) => o -> m Assistant
toAssistant :: forall (m :: * -> *) o.
(MonadIO m, IsAssistant o) =>
o -> m Assistant
toAssistant = IO Assistant -> m Assistant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Assistant -> Assistant
Assistant
instance B.GValue.IsGValue (Maybe Assistant) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_assistant_get_type
gvalueSet_ :: Ptr GValue -> Maybe Assistant -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Assistant
P.Nothing = Ptr GValue -> Ptr Assistant -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Assistant
forall a. Ptr a
FP.nullPtr :: FP.Ptr Assistant)
gvalueSet_ Ptr GValue
gv (P.Just Assistant
obj) = Assistant -> (Ptr Assistant -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Assistant
obj (Ptr GValue -> Ptr Assistant -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Assistant)
gvalueGet_ Ptr GValue
gv = do
Ptr Assistant
ptr <- Ptr GValue -> IO (Ptr Assistant)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Assistant)
if Ptr Assistant
ptr Ptr Assistant -> Ptr Assistant -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Assistant
forall a. Ptr a
FP.nullPtr
then Assistant -> Maybe Assistant
forall a. a -> Maybe a
P.Just (Assistant -> Maybe Assistant)
-> IO Assistant -> IO (Maybe Assistant)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Assistant -> IO (Maybe Assistant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Assistant
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAssistantMethod (t :: Symbol) (o :: *) :: * where
ResolveAssistantMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveAssistantMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveAssistantMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveAssistantMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveAssistantMethod "addActionWidget" o = AssistantAddActionWidgetMethodInfo
ResolveAssistantMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveAssistantMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveAssistantMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveAssistantMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveAssistantMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveAssistantMethod "appendPage" o = AssistantAppendPageMethodInfo
ResolveAssistantMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAssistantMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAssistantMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
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 "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveAssistantMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveAssistantMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveAssistantMethod "destroy" o = Gtk.Window.WindowDestroyMethodInfo
ResolveAssistantMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveAssistantMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveAssistantMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveAssistantMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
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 "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveAssistantMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveAssistantMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveAssistantMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveAssistantMethod "hasGroup" o = Gtk.Window.WindowHasGroupMethodInfo
ResolveAssistantMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveAssistantMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveAssistantMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveAssistantMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
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 "isFullscreen" o = Gtk.Window.WindowIsFullscreenMethodInfo
ResolveAssistantMethod "isMaximized" o = Gtk.Window.WindowIsMaximizedMethodInfo
ResolveAssistantMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveAssistantMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveAssistantMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
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 "minimize" o = Gtk.Window.WindowMinimizeMethodInfo
ResolveAssistantMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
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 "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 "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveAssistantMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveAssistantMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveAssistantMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveAssistantMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAssistantMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAssistantMethod "removeActionWidget" o = AssistantRemoveActionWidgetMethodInfo
ResolveAssistantMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveAssistantMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveAssistantMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveAssistantMethod "removePage" o = AssistantRemovePageMethodInfo
ResolveAssistantMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveAssistantMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveAssistantMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveAssistantMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveAssistantMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAssistantMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
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 "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 "unminimize" o = Gtk.Window.WindowUnminimizeMethodInfo
ResolveAssistantMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveAssistantMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveAssistantMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAssistantMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveAssistantMethod "updateButtonsState" o = AssistantUpdateButtonsStateMethodInfo
ResolveAssistantMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveAssistantMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveAssistantMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveAssistantMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAssistantMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
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 "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveAssistantMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveAssistantMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveAssistantMethod "getChild" o = Gtk.Window.WindowGetChildMethodInfo
ResolveAssistantMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveAssistantMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveAssistantMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveAssistantMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
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 "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveAssistantMethod "getFocusVisible" o = Gtk.Window.WindowGetFocusVisibleMethodInfo
ResolveAssistantMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHandleMenubarAccel" o = Gtk.Window.WindowGetHandleMenubarAccelMethodInfo
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 "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 "getMnemonicsVisible" o = Gtk.Window.WindowGetMnemonicsVisibleMethodInfo
ResolveAssistantMethod "getModal" o = Gtk.Window.WindowGetModalMethodInfo
ResolveAssistantMethod "getNPages" o = AssistantGetNPagesMethodInfo
ResolveAssistantMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveAssistantMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
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 "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 "getRenderer" o = Gtk.Native.NativeGetRendererMethodInfo
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.Widget.WidgetGetSizeMethodInfo
ResolveAssistantMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveAssistantMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveAssistantMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveAssistantMethod "getSurface" o = Gtk.Native.NativeGetSurfaceMethodInfo
ResolveAssistantMethod "getSurfaceTransform" o = Gtk.Native.NativeGetSurfaceTransformMethodInfo
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 "getTransientFor" o = Gtk.Window.WindowGetTransientForMethodInfo
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 "setApplication" o = Gtk.Window.WindowSetApplicationMethodInfo
ResolveAssistantMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveAssistantMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveAssistantMethod "setChild" o = Gtk.Window.WindowSetChildMethodInfo
ResolveAssistantMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveAssistantMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
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 "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveAssistantMethod "setFocusVisible" o = Gtk.Window.WindowSetFocusVisibleMethodInfo
ResolveAssistantMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveAssistantMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveAssistantMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveAssistantMethod "setForwardPageFunc" o = AssistantSetForwardPageFuncMethodInfo
ResolveAssistantMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveAssistantMethod "setHandleMenubarAccel" o = Gtk.Window.WindowSetHandleMenubarAccelMethodInfo
ResolveAssistantMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
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 "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 "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 "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 "setTitle" o = Gtk.Window.WindowSetTitleMethodInfo
ResolveAssistantMethod "setTitlebar" o = Gtk.Window.WindowSetTitlebarMethodInfo
ResolveAssistantMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveAssistantMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveAssistantMethod "setTransientFor" o = Gtk.Window.WindowSetTransientForMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveAssistantMethod t Assistant, O.OverloadedMethod info Assistant p, R.HasField t Assistant p) => R.HasField t Assistant p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAssistantMethod t Assistant, O.OverloadedMethodInfo info Assistant) => OL.IsLabel t (O.MethodProxy info Assistant) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AssistantApplyCallback =
IO ()
type C_AssistantApplyCallback =
Ptr Assistant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantApplyCallback :: C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
wrap_AssistantApplyCallback ::
GObject a => (a -> AssistantApplyCallback) ->
C_AssistantApplyCallback
wrap_AssistantApplyCallback :: forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantApplyCallback a -> IO ()
gi'cb Ptr Assistant
gi'selfPtr Ptr ()
_ = do
Ptr Assistant -> (Assistant -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Assistant
gi'selfPtr ((Assistant -> IO ()) -> IO ()) -> (Assistant -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Assistant
gi'self -> a -> IO ()
gi'cb (Assistant -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Assistant
gi'self)
onAssistantApply :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantApplyCallback) -> m SignalHandlerId
onAssistantApply :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAssistantApply a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantApplyCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantApplyCallback C_AssistantApplyCallback
wrapped'
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 Text
"apply" FunPtr C_AssistantApplyCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantApply :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantApplyCallback) -> m SignalHandlerId
afterAssistantApply :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAssistantApply a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantApplyCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantApplyCallback C_AssistantApplyCallback
wrapped'
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 Text
"apply" FunPtr C_AssistantApplyCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant::apply"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:signal:apply"})
#endif
type AssistantCancelCallback =
IO ()
type C_AssistantCancelCallback =
Ptr Assistant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantCancelCallback :: C_AssistantCancelCallback -> IO (FunPtr C_AssistantCancelCallback)
wrap_AssistantCancelCallback ::
GObject a => (a -> AssistantCancelCallback) ->
C_AssistantCancelCallback
wrap_AssistantCancelCallback :: forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCancelCallback a -> IO ()
gi'cb Ptr Assistant
gi'selfPtr Ptr ()
_ = do
Ptr Assistant -> (Assistant -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Assistant
gi'selfPtr ((Assistant -> IO ()) -> IO ()) -> (Assistant -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Assistant
gi'self -> a -> IO ()
gi'cb (Assistant -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Assistant
gi'self)
onAssistantCancel :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantCancelCallback) -> m SignalHandlerId
onAssistantCancel :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAssistantCancel a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCancelCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCancelCallback C_AssistantApplyCallback
wrapped'
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 Text
"cancel" FunPtr C_AssistantApplyCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantCancel :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantCancelCallback) -> m SignalHandlerId
afterAssistantCancel :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAssistantCancel a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCancelCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCancelCallback C_AssistantApplyCallback
wrapped'
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 Text
"cancel" FunPtr C_AssistantApplyCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant::cancel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:signal:cancel"})
#endif
type AssistantCloseCallback =
IO ()
type C_AssistantCloseCallback =
Ptr Assistant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantCloseCallback :: C_AssistantCloseCallback -> IO (FunPtr C_AssistantCloseCallback)
wrap_AssistantCloseCallback ::
GObject a => (a -> AssistantCloseCallback) ->
C_AssistantCloseCallback
wrap_AssistantCloseCallback :: forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCloseCallback a -> IO ()
gi'cb Ptr Assistant
gi'selfPtr Ptr ()
_ = do
Ptr Assistant -> (Assistant -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Assistant
gi'selfPtr ((Assistant -> IO ()) -> IO ()) -> (Assistant -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Assistant
gi'self -> a -> IO ()
gi'cb (Assistant -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Assistant
gi'self)
onAssistantClose :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantCloseCallback) -> m SignalHandlerId
onAssistantClose :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAssistantClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCloseCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCloseCallback C_AssistantApplyCallback
wrapped'
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 Text
"close" FunPtr C_AssistantApplyCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantClose :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantCloseCallback) -> m SignalHandlerId
afterAssistantClose :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAssistantClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantCloseCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantCloseCallback C_AssistantApplyCallback
wrapped'
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 Text
"close" FunPtr C_AssistantApplyCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant::close"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:signal:close"})
#endif
type AssistantEscapeCallback =
IO ()
type C_AssistantEscapeCallback =
Ptr Assistant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantEscapeCallback :: C_AssistantEscapeCallback -> IO (FunPtr C_AssistantEscapeCallback)
wrap_AssistantEscapeCallback ::
GObject a => (a -> AssistantEscapeCallback) ->
C_AssistantEscapeCallback
wrap_AssistantEscapeCallback :: forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback a -> IO ()
gi'cb Ptr Assistant
gi'selfPtr Ptr ()
_ = do
Ptr Assistant -> (Assistant -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Assistant
gi'selfPtr ((Assistant -> IO ()) -> IO ()) -> (Assistant -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Assistant
gi'self -> a -> IO ()
gi'cb (Assistant -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Assistant
gi'self)
onAssistantEscape :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantEscapeCallback) -> m SignalHandlerId
onAssistantEscape :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAssistantEscape a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantEscapeCallback C_AssistantApplyCallback
wrapped'
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 Text
"escape" FunPtr C_AssistantApplyCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantEscape :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantEscapeCallback) -> m SignalHandlerId
afterAssistantEscape :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAssistantEscape a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AssistantApplyCallback
wrapped' = (a -> IO ()) -> C_AssistantApplyCallback
forall a. GObject a => (a -> IO ()) -> C_AssistantApplyCallback
wrap_AssistantEscapeCallback a -> IO ()
wrapped
FunPtr C_AssistantApplyCallback
wrapped'' <- C_AssistantApplyCallback -> IO (FunPtr C_AssistantApplyCallback)
mk_AssistantEscapeCallback C_AssistantApplyCallback
wrapped'
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 Text
"escape" FunPtr C_AssistantApplyCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant::escape"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:signal:escape"})
#endif
type AssistantPrepareCallback =
Gtk.Widget.Widget
-> IO ()
type C_AssistantPrepareCallback =
Ptr Assistant ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AssistantPrepareCallback :: C_AssistantPrepareCallback -> IO (FunPtr C_AssistantPrepareCallback)
wrap_AssistantPrepareCallback ::
GObject a => (a -> AssistantPrepareCallback) ->
C_AssistantPrepareCallback
wrap_AssistantPrepareCallback :: forall a.
GObject a =>
(a -> AssistantPrepareCallback) -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback a -> AssistantPrepareCallback
gi'cb Ptr Assistant
gi'selfPtr Ptr Widget
page Ptr ()
_ = do
Widget
page' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
page
Ptr Assistant -> (Assistant -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Assistant
gi'selfPtr ((Assistant -> IO ()) -> IO ()) -> (Assistant -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Assistant
gi'self -> a -> AssistantPrepareCallback
gi'cb (Assistant -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Assistant
gi'self) Widget
page'
onAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantPrepareCallback) -> m SignalHandlerId
onAssistantPrepare :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => AssistantPrepareCallback) -> m SignalHandlerId
onAssistantPrepare a
obj (?self::a) => AssistantPrepareCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AssistantPrepareCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AssistantPrepareCallback
AssistantPrepareCallback
cb
let wrapped' :: C_AssistantPrepareCallback
wrapped' = (a -> AssistantPrepareCallback) -> C_AssistantPrepareCallback
forall a.
GObject a =>
(a -> AssistantPrepareCallback) -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback a -> AssistantPrepareCallback
wrapped
FunPtr C_AssistantPrepareCallback
wrapped'' <- C_AssistantPrepareCallback
-> IO (FunPtr C_AssistantPrepareCallback)
mk_AssistantPrepareCallback C_AssistantPrepareCallback
wrapped'
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 Text
"prepare" FunPtr C_AssistantPrepareCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAssistantPrepare :: (IsAssistant a, MonadIO m) => a -> ((?self :: a) => AssistantPrepareCallback) -> m SignalHandlerId
afterAssistantPrepare :: forall a (m :: * -> *).
(IsAssistant a, MonadIO m) =>
a -> ((?self::a) => AssistantPrepareCallback) -> m SignalHandlerId
afterAssistantPrepare a
obj (?self::a) => AssistantPrepareCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AssistantPrepareCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AssistantPrepareCallback
AssistantPrepareCallback
cb
let wrapped' :: C_AssistantPrepareCallback
wrapped' = (a -> AssistantPrepareCallback) -> C_AssistantPrepareCallback
forall a.
GObject a =>
(a -> AssistantPrepareCallback) -> C_AssistantPrepareCallback
wrap_AssistantPrepareCallback a -> AssistantPrepareCallback
wrapped
FunPtr C_AssistantPrepareCallback
wrapped'' <- C_AssistantPrepareCallback
-> IO (FunPtr C_AssistantPrepareCallback)
mk_AssistantPrepareCallback C_AssistantPrepareCallback
wrapped'
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 Text
"prepare" FunPtr C_AssistantPrepareCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant::prepare"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:signal:prepare"})
#endif
getAssistantPages :: (MonadIO m, IsAssistant o) => o -> m (Maybe Gio.ListModel.ListModel)
getAssistantPages :: forall (m :: * -> *) o.
(MonadIO m, IsAssistant o) =>
o -> m (Maybe ListModel)
getAssistantPages o
obj = IO (Maybe ListModel) -> m (Maybe ListModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.pages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:attr:pages"
})
#endif
getAssistantUseHeaderBar :: (MonadIO m, IsAssistant o) => o -> m Int32
o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"use-header-bar"
constructAssistantUseHeaderBar :: (IsAssistant o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.useHeaderBar"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#g:attr:useHeaderBar"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Assistant
type instance O.AttributeList Assistant = AssistantAttributeList
type AssistantAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("application", Gtk.Window.WindowApplicationPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", Gtk.Window.WindowChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("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), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusVisible", Gtk.Window.WindowFocusVisiblePropertyInfo), '("focusWidget", Gtk.Window.WindowFocusWidgetPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("fullscreened", Gtk.Window.WindowFullscreenedPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("handleMenubarAccel", Gtk.Window.WindowHandleMenubarAccelPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maximized", Gtk.Window.WindowMaximizedPropertyInfo), '("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), '("title", Gtk.Window.WindowTitlePropertyInfo), '("titlebar", Gtk.Window.WindowTitlebarPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", Gtk.Window.WindowTransientForPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(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 = ('[ '("activateDefault", Gtk.Window.WindowActivateDefaultSignalInfo), '("activateFocus", Gtk.Window.WindowActivateFocusSignalInfo), '("apply", AssistantApplySignalInfo), '("cancel", AssistantCancelSignalInfo), '("close", AssistantCloseSignalInfo), '("closeRequest", Gtk.Window.WindowCloseRequestSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("enableDebugging", Gtk.Window.WindowEnableDebuggingSignalInfo), '("escape", AssistantEscapeSignalInfo), '("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), '("prepare", AssistantPrepareSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Assistant
assistantNew = IO Assistant -> m Assistant
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m ()
assistantAddActionWidget a
assistant b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantAddActionWidgetMethodInfo a signature where
overloadedMethod = assistantAddActionWidget
instance O.OverloadedMethodInfo AssistantAddActionWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantAddActionWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m Int32
assistantAppendPage a
assistant b
page = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantAppendPageMethodInfo a signature where
overloadedMethod = assistantAppendPage
instance O.OverloadedMethodInfo AssistantAppendPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantAppendPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m ()
assistantCommit a
assistant = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantCommitMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantCommitMethodInfo a signature where
overloadedMethod = assistantCommit
instance O.OverloadedMethodInfo AssistantCommitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantCommit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m Int32
assistantGetCurrentPage a
assistant = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantGetCurrentPageMethodInfo a signature where
overloadedMethod = assistantGetCurrentPage
instance O.OverloadedMethodInfo AssistantGetCurrentPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetCurrentPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m Int32
assistantGetNPages a
assistant = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantGetNPagesMethodInfo a signature where
overloadedMethod = assistantGetNPages
instance O.OverloadedMethodInfo AssistantGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> Int32 -> m (Maybe Widget)
assistantGetNthPage a
assistant Int32
pageNum = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
assistant
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data AssistantGetNthPageMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantGetNthPageMethodInfo a signature where
overloadedMethod = assistantGetNthPage
instance O.OverloadedMethodInfo AssistantGetNthPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetNthPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m AssistantPage
assistantGetPage a
assistant b
child = IO AssistantPage -> m AssistantPage
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod AssistantGetPageMethodInfo a signature where
overloadedMethod = assistantGetPage
instance O.OverloadedMethodInfo AssistantGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m Bool
assistantGetPageComplete a
assistant b
page = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
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 a. a -> IO a
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.OverloadedMethod AssistantGetPageCompleteMethodInfo a signature where
overloadedMethod = assistantGetPageComplete
instance O.OverloadedMethodInfo AssistantGetPageCompleteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetPageComplete",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m Text
assistantGetPageTitle a
assistant b
page = IO Text -> m Text
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod AssistantGetPageTitleMethodInfo a signature where
overloadedMethod = assistantGetPageTitle
instance O.OverloadedMethodInfo AssistantGetPageTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetPageTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m AssistantPageType
assistantGetPageType a
assistant b
page = IO AssistantPageType -> m AssistantPageType
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod AssistantGetPageTypeMethodInfo a signature where
overloadedMethod = assistantGetPageType
instance O.OverloadedMethodInfo AssistantGetPageTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetPageType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m ListModel
assistantGetPages a
assistant = IO ListModel -> m ListModel
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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.OverloadedMethod AssistantGetPagesMethodInfo a signature where
overloadedMethod = assistantGetPages
instance O.OverloadedMethodInfo AssistantGetPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantGetPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> Int32 -> m Int32
assistantInsertPage a
assistant b
page Int32
position = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantInsertPageMethodInfo a signature where
overloadedMethod = assistantInsertPage
instance O.OverloadedMethodInfo AssistantInsertPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantInsertPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m ()
assistantNextPage a
assistant = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantNextPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantNextPageMethodInfo a signature where
overloadedMethod = assistantNextPage
instance O.OverloadedMethodInfo AssistantNextPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantNextPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m Int32
assistantPrependPage a
assistant b
page = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantPrependPageMethodInfo a signature where
overloadedMethod = assistantPrependPage
instance O.OverloadedMethodInfo AssistantPrependPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantPrependPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m ()
assistantPreviousPage a
assistant = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantPreviousPageMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantPreviousPageMethodInfo a signature where
overloadedMethod = assistantPreviousPage
instance O.OverloadedMethodInfo AssistantPreviousPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantPreviousPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> m ()
assistantRemoveActionWidget a
assistant b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantRemoveActionWidgetMethodInfo a signature where
overloadedMethod = assistantRemoveActionWidget
instance O.OverloadedMethodInfo AssistantRemoveActionWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantRemoveActionWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> Int32 -> m ()
assistantRemovePage a
assistant Int32
pageNum = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantRemovePageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantRemovePageMethodInfo a signature where
overloadedMethod = assistantRemovePage
instance O.OverloadedMethodInfo AssistantRemovePageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantRemovePage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> Int32 -> m ()
assistantSetCurrentPage a
assistant Int32
pageNum = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantSetCurrentPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantSetCurrentPageMethodInfo a signature where
overloadedMethod = assistantSetCurrentPage
instance O.OverloadedMethodInfo AssistantSetCurrentPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantSetCurrentPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> Maybe (Int32 -> IO Int32) -> m ()
assistantSetForwardPageFunc a
assistant Maybe (Int32 -> IO Int32)
pageFunc = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe (Int32 -> IO Int32)
Nothing -> FunPtr C_AssistantPageFunc -> IO (FunPtr C_AssistantPageFunc)
forall a. a -> IO a
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 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 a. a -> IO a
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 ())
SP.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 a. a -> IO a
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.OverloadedMethod AssistantSetForwardPageFuncMethodInfo a signature where
overloadedMethod = assistantSetForwardPageFunc
instance O.OverloadedMethodInfo AssistantSetForwardPageFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantSetForwardPageFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> Bool -> m ()
assistantSetPageComplete a
assistant b
page Bool
complete = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantSetPageCompleteMethodInfo a signature where
overloadedMethod = assistantSetPageComplete
instance O.OverloadedMethodInfo AssistantSetPageCompleteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantSetPageComplete",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> Text -> m ()
assistantSetPageTitle a
assistant b
page Text
title = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantSetPageTitleMethodInfo a signature where
overloadedMethod = assistantSetPageTitle
instance O.OverloadedMethodInfo AssistantSetPageTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantSetPageTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAssistant a, IsWidget b) =>
a -> b -> AssistantPageType -> m ()
assistantSetPageType a
assistant b
page AssistantPageType
type_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod AssistantSetPageTypeMethodInfo a signature where
overloadedMethod = assistantSetPageType
instance O.OverloadedMethodInfo AssistantSetPageTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantSetPageType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAssistant a) =>
a -> m ()
assistantUpdateButtonsState a
assistant = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AssistantUpdateButtonsStateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAssistant a) => O.OverloadedMethod AssistantUpdateButtonsStateMethodInfo a signature where
overloadedMethod = assistantUpdateButtonsState
instance O.OverloadedMethodInfo AssistantUpdateButtonsStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Assistant.assistantUpdateButtonsState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Assistant.html#v:assistantUpdateButtonsState"
})
#endif