module GI.Gtk.Objects.Toolbar
(
Toolbar(..) ,
ToolbarK ,
toToolbar ,
noToolbar ,
toolbarGetDropIndex ,
toolbarGetIconSize ,
toolbarGetItemIndex ,
toolbarGetNItems ,
toolbarGetNthItem ,
toolbarGetReliefStyle ,
toolbarGetShowArrow ,
toolbarGetStyle ,
toolbarInsert ,
toolbarNew ,
toolbarSetDropHighlightItem ,
toolbarSetIconSize ,
toolbarSetShowArrow ,
toolbarSetStyle ,
toolbarUnsetIconSize ,
toolbarUnsetStyle ,
ToolbarIconSizePropertyInfo ,
constructToolbarIconSize ,
getToolbarIconSize ,
setToolbarIconSize ,
ToolbarIconSizeSetPropertyInfo ,
constructToolbarIconSizeSet ,
getToolbarIconSizeSet ,
setToolbarIconSizeSet ,
ToolbarShowArrowPropertyInfo ,
constructToolbarShowArrow ,
getToolbarShowArrow ,
setToolbarShowArrow ,
ToolbarToolbarStylePropertyInfo ,
constructToolbarToolbarStyle ,
getToolbarToolbarStyle ,
setToolbarToolbarStyle ,
ToolbarFocusHomeOrEndCallback ,
ToolbarFocusHomeOrEndCallbackC ,
ToolbarFocusHomeOrEndSignalInfo ,
afterToolbarFocusHomeOrEnd ,
mkToolbarFocusHomeOrEndCallback ,
noToolbarFocusHomeOrEndCallback ,
onToolbarFocusHomeOrEnd ,
toolbarFocusHomeOrEndCallbackWrapper ,
toolbarFocusHomeOrEndClosure ,
ToolbarOrientationChangedCallback ,
ToolbarOrientationChangedCallbackC ,
ToolbarOrientationChangedSignalInfo ,
afterToolbarOrientationChanged ,
mkToolbarOrientationChangedCallback ,
noToolbarOrientationChangedCallback ,
onToolbarOrientationChanged ,
toolbarOrientationChangedCallbackWrapper,
toolbarOrientationChangedClosure ,
ToolbarPopupContextMenuCallback ,
ToolbarPopupContextMenuCallbackC ,
ToolbarPopupContextMenuSignalInfo ,
afterToolbarPopupContextMenu ,
mkToolbarPopupContextMenuCallback ,
noToolbarPopupContextMenuCallback ,
onToolbarPopupContextMenu ,
toolbarPopupContextMenuCallbackWrapper ,
toolbarPopupContextMenuClosure ,
ToolbarStyleChangedCallback ,
ToolbarStyleChangedCallbackC ,
ToolbarStyleChangedSignalInfo ,
afterToolbarStyleChanged ,
mkToolbarStyleChangedCallback ,
noToolbarStyleChangedCallback ,
onToolbarStyleChanged ,
toolbarStyleChangedCallbackWrapper ,
toolbarStyleChangedClosure ,
) 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.GObject as GObject
newtype Toolbar = Toolbar (ForeignPtr Toolbar)
foreign import ccall "gtk_toolbar_get_type"
c_gtk_toolbar_get_type :: IO GType
type instance ParentTypes Toolbar = ToolbarParentTypes
type ToolbarParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, ToolShell]
instance GObject Toolbar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_toolbar_get_type
class GObject o => ToolbarK o
instance (GObject o, IsDescendantOf Toolbar o) => ToolbarK o
toToolbar :: ToolbarK o => o -> IO Toolbar
toToolbar = unsafeCastTo Toolbar
noToolbar :: Maybe Toolbar
noToolbar = Nothing
type ToolbarFocusHomeOrEndCallback =
Bool ->
IO Bool
noToolbarFocusHomeOrEndCallback :: Maybe ToolbarFocusHomeOrEndCallback
noToolbarFocusHomeOrEndCallback = Nothing
type ToolbarFocusHomeOrEndCallbackC =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkToolbarFocusHomeOrEndCallback :: ToolbarFocusHomeOrEndCallbackC -> IO (FunPtr ToolbarFocusHomeOrEndCallbackC)
toolbarFocusHomeOrEndClosure :: ToolbarFocusHomeOrEndCallback -> IO Closure
toolbarFocusHomeOrEndClosure cb = newCClosure =<< mkToolbarFocusHomeOrEndCallback wrapped
where wrapped = toolbarFocusHomeOrEndCallbackWrapper cb
toolbarFocusHomeOrEndCallbackWrapper ::
ToolbarFocusHomeOrEndCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
toolbarFocusHomeOrEndCallbackWrapper _cb _ focus_home _ = do
let focus_home' = (/= 0) focus_home
result <- _cb focus_home'
let result' = (fromIntegral . fromEnum) result
return result'
onToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId
onToolbarFocusHomeOrEnd obj cb = liftIO $ connectToolbarFocusHomeOrEnd obj cb SignalConnectBefore
afterToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) => a -> ToolbarFocusHomeOrEndCallback -> m SignalHandlerId
afterToolbarFocusHomeOrEnd obj cb = connectToolbarFocusHomeOrEnd obj cb SignalConnectAfter
connectToolbarFocusHomeOrEnd :: (GObject a, MonadIO m) =>
a -> ToolbarFocusHomeOrEndCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarFocusHomeOrEnd obj cb after = liftIO $ do
cb' <- mkToolbarFocusHomeOrEndCallback (toolbarFocusHomeOrEndCallbackWrapper cb)
connectSignalFunPtr obj "focus-home-or-end" cb' after
type ToolbarOrientationChangedCallback =
Orientation ->
IO ()
noToolbarOrientationChangedCallback :: Maybe ToolbarOrientationChangedCallback
noToolbarOrientationChangedCallback = Nothing
type ToolbarOrientationChangedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkToolbarOrientationChangedCallback :: ToolbarOrientationChangedCallbackC -> IO (FunPtr ToolbarOrientationChangedCallbackC)
toolbarOrientationChangedClosure :: ToolbarOrientationChangedCallback -> IO Closure
toolbarOrientationChangedClosure cb = newCClosure =<< mkToolbarOrientationChangedCallback wrapped
where wrapped = toolbarOrientationChangedCallbackWrapper cb
toolbarOrientationChangedCallbackWrapper ::
ToolbarOrientationChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
toolbarOrientationChangedCallbackWrapper _cb _ orientation _ = do
let orientation' = (toEnum . fromIntegral) orientation
_cb orientation'
onToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId
onToolbarOrientationChanged obj cb = liftIO $ connectToolbarOrientationChanged obj cb SignalConnectBefore
afterToolbarOrientationChanged :: (GObject a, MonadIO m) => a -> ToolbarOrientationChangedCallback -> m SignalHandlerId
afterToolbarOrientationChanged obj cb = connectToolbarOrientationChanged obj cb SignalConnectAfter
connectToolbarOrientationChanged :: (GObject a, MonadIO m) =>
a -> ToolbarOrientationChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarOrientationChanged obj cb after = liftIO $ do
cb' <- mkToolbarOrientationChangedCallback (toolbarOrientationChangedCallbackWrapper cb)
connectSignalFunPtr obj "orientation-changed" cb' after
type ToolbarPopupContextMenuCallback =
Int32 ->
Int32 ->
Int32 ->
IO Bool
noToolbarPopupContextMenuCallback :: Maybe ToolbarPopupContextMenuCallback
noToolbarPopupContextMenuCallback = Nothing
type ToolbarPopupContextMenuCallbackC =
Ptr () ->
Int32 ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkToolbarPopupContextMenuCallback :: ToolbarPopupContextMenuCallbackC -> IO (FunPtr ToolbarPopupContextMenuCallbackC)
toolbarPopupContextMenuClosure :: ToolbarPopupContextMenuCallback -> IO Closure
toolbarPopupContextMenuClosure cb = newCClosure =<< mkToolbarPopupContextMenuCallback wrapped
where wrapped = toolbarPopupContextMenuCallbackWrapper cb
toolbarPopupContextMenuCallbackWrapper ::
ToolbarPopupContextMenuCallback ->
Ptr () ->
Int32 ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
toolbarPopupContextMenuCallbackWrapper _cb _ x y button _ = do
result <- _cb x y button
let result' = (fromIntegral . fromEnum) result
return result'
onToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId
onToolbarPopupContextMenu obj cb = liftIO $ connectToolbarPopupContextMenu obj cb SignalConnectBefore
afterToolbarPopupContextMenu :: (GObject a, MonadIO m) => a -> ToolbarPopupContextMenuCallback -> m SignalHandlerId
afterToolbarPopupContextMenu obj cb = connectToolbarPopupContextMenu obj cb SignalConnectAfter
connectToolbarPopupContextMenu :: (GObject a, MonadIO m) =>
a -> ToolbarPopupContextMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarPopupContextMenu obj cb after = liftIO $ do
cb' <- mkToolbarPopupContextMenuCallback (toolbarPopupContextMenuCallbackWrapper cb)
connectSignalFunPtr obj "popup-context-menu" cb' after
type ToolbarStyleChangedCallback =
ToolbarStyle ->
IO ()
noToolbarStyleChangedCallback :: Maybe ToolbarStyleChangedCallback
noToolbarStyleChangedCallback = Nothing
type ToolbarStyleChangedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkToolbarStyleChangedCallback :: ToolbarStyleChangedCallbackC -> IO (FunPtr ToolbarStyleChangedCallbackC)
toolbarStyleChangedClosure :: ToolbarStyleChangedCallback -> IO Closure
toolbarStyleChangedClosure cb = newCClosure =<< mkToolbarStyleChangedCallback wrapped
where wrapped = toolbarStyleChangedCallbackWrapper cb
toolbarStyleChangedCallbackWrapper ::
ToolbarStyleChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
toolbarStyleChangedCallbackWrapper _cb _ style _ = do
let style' = (toEnum . fromIntegral) style
_cb style'
onToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId
onToolbarStyleChanged obj cb = liftIO $ connectToolbarStyleChanged obj cb SignalConnectBefore
afterToolbarStyleChanged :: (GObject a, MonadIO m) => a -> ToolbarStyleChangedCallback -> m SignalHandlerId
afterToolbarStyleChanged obj cb = connectToolbarStyleChanged obj cb SignalConnectAfter
connectToolbarStyleChanged :: (GObject a, MonadIO m) =>
a -> ToolbarStyleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectToolbarStyleChanged obj cb after = liftIO $ do
cb' <- mkToolbarStyleChangedCallback (toolbarStyleChangedCallbackWrapper cb)
connectSignalFunPtr obj "style-changed" cb' after
getToolbarIconSize :: (MonadIO m, ToolbarK o) => o -> m IconSize
getToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size"
setToolbarIconSize :: (MonadIO m, ToolbarK o) => o -> IconSize -> m ()
setToolbarIconSize obj val = liftIO $ setObjectPropertyEnum obj "icon-size" val
constructToolbarIconSize :: IconSize -> IO ([Char], GValue)
constructToolbarIconSize val = constructObjectPropertyEnum "icon-size" val
data ToolbarIconSizePropertyInfo
instance AttrInfo ToolbarIconSizePropertyInfo where
type AttrAllowedOps ToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolbarIconSizePropertyInfo = (~) IconSize
type AttrBaseTypeConstraint ToolbarIconSizePropertyInfo = ToolbarK
type AttrGetType ToolbarIconSizePropertyInfo = IconSize
type AttrLabel ToolbarIconSizePropertyInfo = "Toolbar::icon-size"
attrGet _ = getToolbarIconSize
attrSet _ = setToolbarIconSize
attrConstruct _ = constructToolbarIconSize
getToolbarIconSizeSet :: (MonadIO m, ToolbarK o) => o -> m Bool
getToolbarIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set"
setToolbarIconSizeSet :: (MonadIO m, ToolbarK o) => o -> Bool -> m ()
setToolbarIconSizeSet obj val = liftIO $ setObjectPropertyBool obj "icon-size-set" val
constructToolbarIconSizeSet :: Bool -> IO ([Char], GValue)
constructToolbarIconSizeSet val = constructObjectPropertyBool "icon-size-set" val
data ToolbarIconSizeSetPropertyInfo
instance AttrInfo ToolbarIconSizeSetPropertyInfo where
type AttrAllowedOps ToolbarIconSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolbarIconSizeSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ToolbarIconSizeSetPropertyInfo = ToolbarK
type AttrGetType ToolbarIconSizeSetPropertyInfo = Bool
type AttrLabel ToolbarIconSizeSetPropertyInfo = "Toolbar::icon-size-set"
attrGet _ = getToolbarIconSizeSet
attrSet _ = setToolbarIconSizeSet
attrConstruct _ = constructToolbarIconSizeSet
getToolbarShowArrow :: (MonadIO m, ToolbarK o) => o -> m Bool
getToolbarShowArrow obj = liftIO $ getObjectPropertyBool obj "show-arrow"
setToolbarShowArrow :: (MonadIO m, ToolbarK o) => o -> Bool -> m ()
setToolbarShowArrow obj val = liftIO $ setObjectPropertyBool obj "show-arrow" val
constructToolbarShowArrow :: Bool -> IO ([Char], GValue)
constructToolbarShowArrow val = constructObjectPropertyBool "show-arrow" val
data ToolbarShowArrowPropertyInfo
instance AttrInfo ToolbarShowArrowPropertyInfo where
type AttrAllowedOps ToolbarShowArrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolbarShowArrowPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ToolbarShowArrowPropertyInfo = ToolbarK
type AttrGetType ToolbarShowArrowPropertyInfo = Bool
type AttrLabel ToolbarShowArrowPropertyInfo = "Toolbar::show-arrow"
attrGet _ = getToolbarShowArrow
attrSet _ = setToolbarShowArrow
attrConstruct _ = constructToolbarShowArrow
getToolbarToolbarStyle :: (MonadIO m, ToolbarK o) => o -> m ToolbarStyle
getToolbarToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style"
setToolbarToolbarStyle :: (MonadIO m, ToolbarK o) => o -> ToolbarStyle -> m ()
setToolbarToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "toolbar-style" val
constructToolbarToolbarStyle :: ToolbarStyle -> IO ([Char], GValue)
constructToolbarToolbarStyle val = constructObjectPropertyEnum "toolbar-style" val
data ToolbarToolbarStylePropertyInfo
instance AttrInfo ToolbarToolbarStylePropertyInfo where
type AttrAllowedOps ToolbarToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolbarToolbarStylePropertyInfo = (~) ToolbarStyle
type AttrBaseTypeConstraint ToolbarToolbarStylePropertyInfo = ToolbarK
type AttrGetType ToolbarToolbarStylePropertyInfo = ToolbarStyle
type AttrLabel ToolbarToolbarStylePropertyInfo = "Toolbar::toolbar-style"
attrGet _ = getToolbarToolbarStyle
attrSet _ = setToolbarToolbarStyle
attrConstruct _ = constructToolbarToolbarStyle
type instance AttributeList Toolbar = ToolbarAttributeList
type ToolbarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-size", ToolbarIconSizePropertyInfo), '("icon-size-set", ToolbarIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-arrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolbarToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data ToolbarFocusHomeOrEndSignalInfo
instance SignalInfo ToolbarFocusHomeOrEndSignalInfo where
type HaskellCallbackType ToolbarFocusHomeOrEndSignalInfo = ToolbarFocusHomeOrEndCallback
connectSignal _ = connectToolbarFocusHomeOrEnd
data ToolbarOrientationChangedSignalInfo
instance SignalInfo ToolbarOrientationChangedSignalInfo where
type HaskellCallbackType ToolbarOrientationChangedSignalInfo = ToolbarOrientationChangedCallback
connectSignal _ = connectToolbarOrientationChanged
data ToolbarPopupContextMenuSignalInfo
instance SignalInfo ToolbarPopupContextMenuSignalInfo where
type HaskellCallbackType ToolbarPopupContextMenuSignalInfo = ToolbarPopupContextMenuCallback
connectSignal _ = connectToolbarPopupContextMenu
data ToolbarStyleChangedSignalInfo
instance SignalInfo ToolbarStyleChangedSignalInfo where
type HaskellCallbackType ToolbarStyleChangedSignalInfo = ToolbarStyleChangedCallback
connectSignal _ = connectToolbarStyleChanged
type instance SignalList Toolbar = ToolbarSignalList
type ToolbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("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), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-home-or-end", ToolbarFocusHomeOrEndSignalInfo), '("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), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientation-changed", ToolbarOrientationChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-context-menu", ToolbarPopupContextMenuSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("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-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-changed", ToolbarStyleChangedSignalInfo), '("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_toolbar_new" gtk_toolbar_new ::
IO (Ptr Toolbar)
toolbarNew ::
(MonadIO m) =>
m Toolbar
toolbarNew = liftIO $ do
result <- gtk_toolbar_new
checkUnexpectedReturnNULL "gtk_toolbar_new" result
result' <- (newObject Toolbar) result
return result'
foreign import ccall "gtk_toolbar_get_drop_index" gtk_toolbar_get_drop_index ::
Ptr Toolbar ->
Int32 ->
Int32 ->
IO Int32
toolbarGetDropIndex ::
(MonadIO m, ToolbarK a) =>
a ->
Int32 ->
Int32 ->
m Int32
toolbarGetDropIndex _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_drop_index _obj' x y
touchManagedPtr _obj
return result
foreign import ccall "gtk_toolbar_get_icon_size" gtk_toolbar_get_icon_size ::
Ptr Toolbar ->
IO CUInt
toolbarGetIconSize ::
(MonadIO m, ToolbarK a) =>
a ->
m IconSize
toolbarGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_icon_size _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_toolbar_get_item_index" gtk_toolbar_get_item_index ::
Ptr Toolbar ->
Ptr ToolItem ->
IO Int32
toolbarGetItemIndex ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a ->
b ->
m Int32
toolbarGetItemIndex _obj item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
result <- gtk_toolbar_get_item_index _obj' item'
touchManagedPtr _obj
touchManagedPtr item
return result
foreign import ccall "gtk_toolbar_get_n_items" gtk_toolbar_get_n_items ::
Ptr Toolbar ->
IO Int32
toolbarGetNItems ::
(MonadIO m, ToolbarK a) =>
a ->
m Int32
toolbarGetNItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_n_items _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_toolbar_get_nth_item" gtk_toolbar_get_nth_item ::
Ptr Toolbar ->
Int32 ->
IO (Ptr ToolItem)
toolbarGetNthItem ::
(MonadIO m, ToolbarK a) =>
a ->
Int32 ->
m ToolItem
toolbarGetNthItem _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_nth_item _obj' n
checkUnexpectedReturnNULL "gtk_toolbar_get_nth_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_toolbar_get_relief_style" gtk_toolbar_get_relief_style ::
Ptr Toolbar ->
IO CUInt
toolbarGetReliefStyle ::
(MonadIO m, ToolbarK a) =>
a ->
m ReliefStyle
toolbarGetReliefStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_relief_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_toolbar_get_show_arrow" gtk_toolbar_get_show_arrow ::
Ptr Toolbar ->
IO CInt
toolbarGetShowArrow ::
(MonadIO m, ToolbarK a) =>
a ->
m Bool
toolbarGetShowArrow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_show_arrow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_toolbar_get_style" gtk_toolbar_get_style ::
Ptr Toolbar ->
IO CUInt
toolbarGetStyle ::
(MonadIO m, ToolbarK a) =>
a ->
m ToolbarStyle
toolbarGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toolbar_get_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_toolbar_insert" gtk_toolbar_insert ::
Ptr Toolbar ->
Ptr ToolItem ->
Int32 ->
IO ()
toolbarInsert ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a ->
b ->
Int32 ->
m ()
toolbarInsert _obj item pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
gtk_toolbar_insert _obj' item' pos
touchManagedPtr _obj
touchManagedPtr item
return ()
foreign import ccall "gtk_toolbar_set_drop_highlight_item" gtk_toolbar_set_drop_highlight_item ::
Ptr Toolbar ->
Ptr ToolItem ->
Int32 ->
IO ()
toolbarSetDropHighlightItem ::
(MonadIO m, ToolbarK a, ToolItemK b) =>
a ->
Maybe (b) ->
Int32 ->
m ()
toolbarSetDropHighlightItem _obj tool_item index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTool_item <- case tool_item of
Nothing -> return nullPtr
Just jTool_item -> do
let jTool_item' = unsafeManagedPtrCastPtr jTool_item
return jTool_item'
gtk_toolbar_set_drop_highlight_item _obj' maybeTool_item index_
touchManagedPtr _obj
whenJust tool_item touchManagedPtr
return ()
foreign import ccall "gtk_toolbar_set_icon_size" gtk_toolbar_set_icon_size ::
Ptr Toolbar ->
CUInt ->
IO ()
toolbarSetIconSize ::
(MonadIO m, ToolbarK a) =>
a ->
IconSize ->
m ()
toolbarSetIconSize _obj icon_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_size' = (fromIntegral . fromEnum) icon_size
gtk_toolbar_set_icon_size _obj' icon_size'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_toolbar_set_show_arrow" gtk_toolbar_set_show_arrow ::
Ptr Toolbar ->
CInt ->
IO ()
toolbarSetShowArrow ::
(MonadIO m, ToolbarK a) =>
a ->
Bool ->
m ()
toolbarSetShowArrow _obj show_arrow = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let show_arrow' = (fromIntegral . fromEnum) show_arrow
gtk_toolbar_set_show_arrow _obj' show_arrow'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_toolbar_set_style" gtk_toolbar_set_style ::
Ptr Toolbar ->
CUInt ->
IO ()
toolbarSetStyle ::
(MonadIO m, ToolbarK a) =>
a ->
ToolbarStyle ->
m ()
toolbarSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = (fromIntegral . fromEnum) style
gtk_toolbar_set_style _obj' style'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_toolbar_unset_icon_size" gtk_toolbar_unset_icon_size ::
Ptr Toolbar ->
IO ()
toolbarUnsetIconSize ::
(MonadIO m, ToolbarK a) =>
a ->
m ()
toolbarUnsetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toolbar_unset_icon_size _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_toolbar_unset_style" gtk_toolbar_unset_style ::
Ptr Toolbar ->
IO ()
toolbarUnsetStyle ::
(MonadIO m, ToolbarK a) =>
a ->
m ()
toolbarUnsetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toolbar_unset_style _obj'
touchManagedPtr _obj
return ()