module GI.Gtk.Objects.Assistant
(
Assistant(..) ,
AssistantK ,
toAssistant ,
noAssistant ,
assistantAddActionWidget ,
assistantAppendPage ,
assistantCommit ,
assistantGetCurrentPage ,
assistantGetNPages ,
assistantGetNthPage ,
assistantGetPageComplete ,
assistantGetPageHasPadding ,
assistantGetPageHeaderImage ,
assistantGetPageSideImage ,
assistantGetPageTitle ,
assistantGetPageType ,
assistantInsertPage ,
assistantNew ,
assistantNextPage ,
assistantPrependPage ,
assistantPreviousPage ,
assistantRemoveActionWidget ,
assistantRemovePage ,
assistantSetCurrentPage ,
assistantSetForwardPageFunc ,
assistantSetPageComplete ,
assistantSetPageHasPadding ,
assistantSetPageHeaderImage ,
assistantSetPageSideImage ,
assistantSetPageTitle ,
assistantSetPageType ,
assistantUpdateButtonsState ,
AssistantUseHeaderBarPropertyInfo ,
constructAssistantUseHeaderBar ,
getAssistantUseHeaderBar ,
AssistantApplyCallback ,
AssistantApplyCallbackC ,
AssistantApplySignalInfo ,
afterAssistantApply ,
assistantApplyCallbackWrapper ,
assistantApplyClosure ,
mkAssistantApplyCallback ,
noAssistantApplyCallback ,
onAssistantApply ,
AssistantCancelCallback ,
AssistantCancelCallbackC ,
AssistantCancelSignalInfo ,
afterAssistantCancel ,
assistantCancelCallbackWrapper ,
assistantCancelClosure ,
mkAssistantCancelCallback ,
noAssistantCancelCallback ,
onAssistantCancel ,
AssistantCloseCallback ,
AssistantCloseCallbackC ,
AssistantCloseSignalInfo ,
afterAssistantClose ,
assistantCloseCallbackWrapper ,
assistantCloseClosure ,
mkAssistantCloseCallback ,
noAssistantCloseCallback ,
onAssistantClose ,
AssistantEscapeCallback ,
AssistantEscapeCallbackC ,
AssistantEscapeSignalInfo ,
afterAssistantEscape ,
assistantEscapeCallbackWrapper ,
assistantEscapeClosure ,
mkAssistantEscapeCallback ,
noAssistantEscapeCallback ,
onAssistantEscape ,
AssistantPrepareCallback ,
AssistantPrepareCallbackC ,
AssistantPrepareSignalInfo ,
afterAssistantPrepare ,
assistantPrepareCallbackWrapper ,
assistantPrepareClosure ,
mkAssistantPrepareCallback ,
noAssistantPrepareCallback ,
onAssistantPrepare ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.GdkPixbuf as GdkPixbuf
newtype Assistant = Assistant (ForeignPtr Assistant)
foreign import ccall "gtk_assistant_get_type"
c_gtk_assistant_get_type :: IO GType
type instance ParentTypes Assistant = AssistantParentTypes
type AssistantParentTypes = '[Window, Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Assistant where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_assistant_get_type
class GObject o => AssistantK o
instance (GObject o, IsDescendantOf Assistant o) => AssistantK o
toAssistant :: AssistantK o => o -> IO Assistant
toAssistant = unsafeCastTo Assistant
noAssistant :: Maybe Assistant
noAssistant = Nothing
type AssistantApplyCallback =
IO ()
noAssistantApplyCallback :: Maybe AssistantApplyCallback
noAssistantApplyCallback = Nothing
type AssistantApplyCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAssistantApplyCallback :: AssistantApplyCallbackC -> IO (FunPtr AssistantApplyCallbackC)
assistantApplyClosure :: AssistantApplyCallback -> IO Closure
assistantApplyClosure cb = newCClosure =<< mkAssistantApplyCallback wrapped
where wrapped = assistantApplyCallbackWrapper cb
assistantApplyCallbackWrapper ::
AssistantApplyCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantApplyCallbackWrapper _cb _ _ = do
_cb
onAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
onAssistantApply obj cb = liftIO $ connectAssistantApply obj cb SignalConnectBefore
afterAssistantApply :: (GObject a, MonadIO m) => a -> AssistantApplyCallback -> m SignalHandlerId
afterAssistantApply obj cb = connectAssistantApply obj cb SignalConnectAfter
connectAssistantApply :: (GObject a, MonadIO m) =>
a -> AssistantApplyCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantApply obj cb after = liftIO $ do
cb' <- mkAssistantApplyCallback (assistantApplyCallbackWrapper cb)
connectSignalFunPtr obj "apply" cb' after
type AssistantCancelCallback =
IO ()
noAssistantCancelCallback :: Maybe AssistantCancelCallback
noAssistantCancelCallback = Nothing
type AssistantCancelCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAssistantCancelCallback :: AssistantCancelCallbackC -> IO (FunPtr AssistantCancelCallbackC)
assistantCancelClosure :: AssistantCancelCallback -> IO Closure
assistantCancelClosure cb = newCClosure =<< mkAssistantCancelCallback wrapped
where wrapped = assistantCancelCallbackWrapper cb
assistantCancelCallbackWrapper ::
AssistantCancelCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantCancelCallbackWrapper _cb _ _ = do
_cb
onAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
onAssistantCancel obj cb = liftIO $ connectAssistantCancel obj cb SignalConnectBefore
afterAssistantCancel :: (GObject a, MonadIO m) => a -> AssistantCancelCallback -> m SignalHandlerId
afterAssistantCancel obj cb = connectAssistantCancel obj cb SignalConnectAfter
connectAssistantCancel :: (GObject a, MonadIO m) =>
a -> AssistantCancelCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantCancel obj cb after = liftIO $ do
cb' <- mkAssistantCancelCallback (assistantCancelCallbackWrapper cb)
connectSignalFunPtr obj "cancel" cb' after
type AssistantCloseCallback =
IO ()
noAssistantCloseCallback :: Maybe AssistantCloseCallback
noAssistantCloseCallback = Nothing
type AssistantCloseCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAssistantCloseCallback :: AssistantCloseCallbackC -> IO (FunPtr AssistantCloseCallbackC)
assistantCloseClosure :: AssistantCloseCallback -> IO Closure
assistantCloseClosure cb = newCClosure =<< mkAssistantCloseCallback wrapped
where wrapped = assistantCloseCallbackWrapper cb
assistantCloseCallbackWrapper ::
AssistantCloseCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantCloseCallbackWrapper _cb _ _ = do
_cb
onAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
onAssistantClose obj cb = liftIO $ connectAssistantClose obj cb SignalConnectBefore
afterAssistantClose :: (GObject a, MonadIO m) => a -> AssistantCloseCallback -> m SignalHandlerId
afterAssistantClose obj cb = connectAssistantClose obj cb SignalConnectAfter
connectAssistantClose :: (GObject a, MonadIO m) =>
a -> AssistantCloseCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantClose obj cb after = liftIO $ do
cb' <- mkAssistantCloseCallback (assistantCloseCallbackWrapper cb)
connectSignalFunPtr obj "close" cb' after
type AssistantEscapeCallback =
IO ()
noAssistantEscapeCallback :: Maybe AssistantEscapeCallback
noAssistantEscapeCallback = Nothing
type AssistantEscapeCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAssistantEscapeCallback :: AssistantEscapeCallbackC -> IO (FunPtr AssistantEscapeCallbackC)
assistantEscapeClosure :: AssistantEscapeCallback -> IO Closure
assistantEscapeClosure cb = newCClosure =<< mkAssistantEscapeCallback wrapped
where wrapped = assistantEscapeCallbackWrapper cb
assistantEscapeCallbackWrapper ::
AssistantEscapeCallback ->
Ptr () ->
Ptr () ->
IO ()
assistantEscapeCallbackWrapper _cb _ _ = do
_cb
onAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
onAssistantEscape obj cb = liftIO $ connectAssistantEscape obj cb SignalConnectBefore
afterAssistantEscape :: (GObject a, MonadIO m) => a -> AssistantEscapeCallback -> m SignalHandlerId
afterAssistantEscape obj cb = connectAssistantEscape obj cb SignalConnectAfter
connectAssistantEscape :: (GObject a, MonadIO m) =>
a -> AssistantEscapeCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantEscape obj cb after = liftIO $ do
cb' <- mkAssistantEscapeCallback (assistantEscapeCallbackWrapper cb)
connectSignalFunPtr obj "escape" cb' after
type AssistantPrepareCallback =
Widget ->
IO ()
noAssistantPrepareCallback :: Maybe AssistantPrepareCallback
noAssistantPrepareCallback = Nothing
type AssistantPrepareCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAssistantPrepareCallback :: AssistantPrepareCallbackC -> IO (FunPtr AssistantPrepareCallbackC)
assistantPrepareClosure :: AssistantPrepareCallback -> IO Closure
assistantPrepareClosure cb = newCClosure =<< mkAssistantPrepareCallback wrapped
where wrapped = assistantPrepareCallbackWrapper cb
assistantPrepareCallbackWrapper ::
AssistantPrepareCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
assistantPrepareCallbackWrapper _cb _ page _ = do
page' <- (newObject Widget) page
_cb page'
onAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
onAssistantPrepare obj cb = liftIO $ connectAssistantPrepare obj cb SignalConnectBefore
afterAssistantPrepare :: (GObject a, MonadIO m) => a -> AssistantPrepareCallback -> m SignalHandlerId
afterAssistantPrepare obj cb = connectAssistantPrepare obj cb SignalConnectAfter
connectAssistantPrepare :: (GObject a, MonadIO m) =>
a -> AssistantPrepareCallback -> SignalConnectMode -> m SignalHandlerId
connectAssistantPrepare obj cb after = liftIO $ do
cb' <- mkAssistantPrepareCallback (assistantPrepareCallbackWrapper cb)
connectSignalFunPtr obj "prepare" cb' after
getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32
getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar"
constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue)
constructAssistantUseHeaderBar val = constructObjectPropertyCInt "use-header-bar" val
data AssistantUseHeaderBarPropertyInfo
instance AttrInfo AssistantUseHeaderBarPropertyInfo where
type AttrAllowedOps AssistantUseHeaderBarPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32
type AttrBaseTypeConstraint AssistantUseHeaderBarPropertyInfo = AssistantK
type AttrGetType AssistantUseHeaderBarPropertyInfo = Int32
type AttrLabel AssistantUseHeaderBarPropertyInfo = "Assistant::use-header-bar"
attrGet _ = getAssistantUseHeaderBar
attrSet _ = undefined
attrConstruct _ = constructAssistantUseHeaderBar
type instance AttributeList Assistant = AssistantAttributeList
type AssistantAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)])
data AssistantApplySignalInfo
instance SignalInfo AssistantApplySignalInfo where
type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback
connectSignal _ = connectAssistantApply
data AssistantCancelSignalInfo
instance SignalInfo AssistantCancelSignalInfo where
type HaskellCallbackType AssistantCancelSignalInfo = AssistantCancelCallback
connectSignal _ = connectAssistantCancel
data AssistantCloseSignalInfo
instance SignalInfo AssistantCloseSignalInfo where
type HaskellCallbackType AssistantCloseSignalInfo = AssistantCloseCallback
connectSignal _ = connectAssistantClose
data AssistantEscapeSignalInfo
instance SignalInfo AssistantEscapeSignalInfo where
type HaskellCallbackType AssistantEscapeSignalInfo = AssistantEscapeCallback
connectSignal _ = connectAssistantEscape
data AssistantPrepareSignalInfo
instance SignalInfo AssistantPrepareSignalInfo where
type HaskellCallbackType AssistantPrepareSignalInfo = AssistantPrepareCallback
connectSignal _ = connectAssistantPrepare
type instance SignalList Assistant = AssistantSignalList
type AssistantSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_assistant_new" gtk_assistant_new ::
IO (Ptr Assistant)
assistantNew ::
(MonadIO m) =>
m Assistant
assistantNew = liftIO $ do
result <- gtk_assistant_new
checkUnexpectedReturnNULL "gtk_assistant_new" result
result' <- (newObject Assistant) result
return result'
foreign import ccall "gtk_assistant_add_action_widget" gtk_assistant_add_action_widget ::
Ptr Assistant ->
Ptr Widget ->
IO ()
assistantAddActionWidget ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m ()
assistantAddActionWidget _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_assistant_add_action_widget _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_assistant_append_page" gtk_assistant_append_page ::
Ptr Assistant ->
Ptr Widget ->
IO Int32
assistantAppendPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m Int32
assistantAppendPage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_append_page _obj' page'
touchManagedPtr _obj
touchManagedPtr page
return result
foreign import ccall "gtk_assistant_commit" gtk_assistant_commit ::
Ptr Assistant ->
IO ()
assistantCommit ::
(MonadIO m, AssistantK a) =>
a ->
m ()
assistantCommit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_commit _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_get_current_page" gtk_assistant_get_current_page ::
Ptr Assistant ->
IO Int32
assistantGetCurrentPage ::
(MonadIO m, AssistantK a) =>
a ->
m Int32
assistantGetCurrentPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_current_page _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_assistant_get_n_pages" gtk_assistant_get_n_pages ::
Ptr Assistant ->
IO Int32
assistantGetNPages ::
(MonadIO m, AssistantK a) =>
a ->
m Int32
assistantGetNPages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_n_pages _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page ::
Ptr Assistant ->
Int32 ->
IO (Ptr Widget)
assistantGetNthPage ::
(MonadIO m, AssistantK a) =>
a ->
Int32 ->
m Widget
assistantGetNthPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_assistant_get_nth_page _obj' page_num
checkUnexpectedReturnNULL "gtk_assistant_get_nth_page" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_assistant_get_page_complete" gtk_assistant_get_page_complete ::
Ptr Assistant ->
Ptr Widget ->
IO CInt
assistantGetPageComplete ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m Bool
assistantGetPageComplete _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_complete _obj' page'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_get_page_has_padding" gtk_assistant_get_page_has_padding ::
Ptr Assistant ->
Ptr Widget ->
IO CInt
assistantGetPageHasPadding ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m Bool
assistantGetPageHasPadding _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_has_padding _obj' page'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_get_page_header_image" gtk_assistant_get_page_header_image ::
Ptr Assistant ->
Ptr Widget ->
IO (Ptr GdkPixbuf.Pixbuf)
assistantGetPageHeaderImage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m GdkPixbuf.Pixbuf
assistantGetPageHeaderImage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_header_image _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_header_image" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_get_page_side_image" gtk_assistant_get_page_side_image ::
Ptr Assistant ->
Ptr Widget ->
IO (Ptr GdkPixbuf.Pixbuf)
assistantGetPageSideImage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m GdkPixbuf.Pixbuf
assistantGetPageSideImage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_side_image _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_side_image" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_get_page_title" gtk_assistant_get_page_title ::
Ptr Assistant ->
Ptr Widget ->
IO CString
assistantGetPageTitle ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m T.Text
assistantGetPageTitle _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_title _obj' page'
checkUnexpectedReturnNULL "gtk_assistant_get_page_title" result
result' <- cstringToText result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_get_page_type" gtk_assistant_get_page_type ::
Ptr Assistant ->
Ptr Widget ->
IO CUInt
assistantGetPageType ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m AssistantPageType
assistantGetPageType _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_get_page_type _obj' page'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr page
return result'
foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page ::
Ptr Assistant ->
Ptr Widget ->
Int32 ->
IO Int32
assistantInsertPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
Int32 ->
m Int32
assistantInsertPage _obj page position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_insert_page _obj' page' position
touchManagedPtr _obj
touchManagedPtr page
return result
foreign import ccall "gtk_assistant_next_page" gtk_assistant_next_page ::
Ptr Assistant ->
IO ()
assistantNextPage ::
(MonadIO m, AssistantK a) =>
a ->
m ()
assistantNextPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_next_page _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_prepend_page" gtk_assistant_prepend_page ::
Ptr Assistant ->
Ptr Widget ->
IO Int32
assistantPrependPage ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m Int32
assistantPrependPage _obj page = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
result <- gtk_assistant_prepend_page _obj' page'
touchManagedPtr _obj
touchManagedPtr page
return result
foreign import ccall "gtk_assistant_previous_page" gtk_assistant_previous_page ::
Ptr Assistant ->
IO ()
assistantPreviousPage ::
(MonadIO m, AssistantK a) =>
a ->
m ()
assistantPreviousPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_previous_page _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_remove_action_widget" gtk_assistant_remove_action_widget ::
Ptr Assistant ->
Ptr Widget ->
IO ()
assistantRemoveActionWidget ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
m ()
assistantRemoveActionWidget _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_assistant_remove_action_widget _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page ::
Ptr Assistant ->
Int32 ->
IO ()
assistantRemovePage ::
(MonadIO m, AssistantK a) =>
a ->
Int32 ->
m ()
assistantRemovePage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_remove_page _obj' page_num
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page ::
Ptr Assistant ->
Int32 ->
IO ()
assistantSetCurrentPage ::
(MonadIO m, AssistantK a) =>
a ->
Int32 ->
m ()
assistantSetCurrentPage _obj page_num = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_set_current_page _obj' page_num
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func ::
Ptr Assistant ->
FunPtr AssistantPageFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
IO ()
assistantSetForwardPageFunc ::
(MonadIO m, AssistantK a) =>
a ->
Maybe (AssistantPageFunc) ->
m ()
assistantSetForwardPageFunc _obj page_func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePage_func <- case page_func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jPage_func -> do
jPage_func' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPage_func)
return jPage_func'
let data_ = castFunPtrToPtr maybePage_func
let destroy = safeFreeFunPtrPtr
gtk_assistant_set_forward_page_func _obj' maybePage_func data_ destroy
touchManagedPtr _obj
return ()
foreign import ccall "gtk_assistant_set_page_complete" gtk_assistant_set_page_complete ::
Ptr Assistant ->
Ptr Widget ->
CInt ->
IO ()
assistantSetPageComplete ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
Bool ->
m ()
assistantSetPageComplete _obj page complete = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let complete' = (fromIntegral . fromEnum) complete
gtk_assistant_set_page_complete _obj' page' complete'
touchManagedPtr _obj
touchManagedPtr page
return ()
foreign import ccall "gtk_assistant_set_page_has_padding" gtk_assistant_set_page_has_padding ::
Ptr Assistant ->
Ptr Widget ->
CInt ->
IO ()
assistantSetPageHasPadding ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
Bool ->
m ()
assistantSetPageHasPadding _obj page has_padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let has_padding' = (fromIntegral . fromEnum) has_padding
gtk_assistant_set_page_has_padding _obj' page' has_padding'
touchManagedPtr _obj
touchManagedPtr page
return ()
foreign import ccall "gtk_assistant_set_page_header_image" gtk_assistant_set_page_header_image ::
Ptr Assistant ->
Ptr Widget ->
Ptr GdkPixbuf.Pixbuf ->
IO ()
assistantSetPageHeaderImage ::
(MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) =>
a ->
b ->
Maybe (c) ->
m ()
assistantSetPageHeaderImage _obj page pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_assistant_set_page_header_image _obj' page' maybePixbuf
touchManagedPtr _obj
touchManagedPtr page
whenJust pixbuf touchManagedPtr
return ()
foreign import ccall "gtk_assistant_set_page_side_image" gtk_assistant_set_page_side_image ::
Ptr Assistant ->
Ptr Widget ->
Ptr GdkPixbuf.Pixbuf ->
IO ()
assistantSetPageSideImage ::
(MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) =>
a ->
b ->
Maybe (c) ->
m ()
assistantSetPageSideImage _obj page pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_assistant_set_page_side_image _obj' page' maybePixbuf
touchManagedPtr _obj
touchManagedPtr page
whenJust pixbuf touchManagedPtr
return ()
foreign import ccall "gtk_assistant_set_page_title" gtk_assistant_set_page_title ::
Ptr Assistant ->
Ptr Widget ->
CString ->
IO ()
assistantSetPageTitle ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
T.Text ->
m ()
assistantSetPageTitle _obj page title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
title' <- textToCString title
gtk_assistant_set_page_title _obj' page' title'
touchManagedPtr _obj
touchManagedPtr page
freeMem title'
return ()
foreign import ccall "gtk_assistant_set_page_type" gtk_assistant_set_page_type ::
Ptr Assistant ->
Ptr Widget ->
CUInt ->
IO ()
assistantSetPageType ::
(MonadIO m, AssistantK a, WidgetK b) =>
a ->
b ->
AssistantPageType ->
m ()
assistantSetPageType _obj page type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let page' = unsafeManagedPtrCastPtr page
let type_' = (fromIntegral . fromEnum) type_
gtk_assistant_set_page_type _obj' page' type_'
touchManagedPtr _obj
touchManagedPtr page
return ()
foreign import ccall "gtk_assistant_update_buttons_state" gtk_assistant_update_buttons_state ::
Ptr Assistant ->
IO ()
assistantUpdateButtonsState ::
(MonadIO m, AssistantK a) =>
a ->
m ()
assistantUpdateButtonsState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_assistant_update_buttons_state _obj'
touchManagedPtr _obj
return ()