gi-gtk-0.3.16.12: GI/Gtk/Objects/ToolPalette.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.ToolPalette
(
-- * Exported types
ToolPalette(..) ,
ToolPaletteK ,
toToolPalette ,
noToolPalette ,
-- * Methods
-- ** toolPaletteAddDragDest
toolPaletteAddDragDest ,
-- ** toolPaletteGetDragItem
toolPaletteGetDragItem ,
-- ** toolPaletteGetDragTargetGroup
toolPaletteGetDragTargetGroup ,
-- ** toolPaletteGetDragTargetItem
toolPaletteGetDragTargetItem ,
-- ** toolPaletteGetDropGroup
toolPaletteGetDropGroup ,
-- ** toolPaletteGetDropItem
toolPaletteGetDropItem ,
-- ** toolPaletteGetExclusive
toolPaletteGetExclusive ,
-- ** toolPaletteGetExpand
toolPaletteGetExpand ,
-- ** toolPaletteGetGroupPosition
toolPaletteGetGroupPosition ,
-- ** toolPaletteGetHadjustment
toolPaletteGetHadjustment ,
-- ** toolPaletteGetIconSize
toolPaletteGetIconSize ,
-- ** toolPaletteGetStyle
toolPaletteGetStyle ,
-- ** toolPaletteGetVadjustment
toolPaletteGetVadjustment ,
-- ** toolPaletteNew
toolPaletteNew ,
-- ** toolPaletteSetDragSource
toolPaletteSetDragSource ,
-- ** toolPaletteSetExclusive
toolPaletteSetExclusive ,
-- ** toolPaletteSetExpand
toolPaletteSetExpand ,
-- ** toolPaletteSetGroupPosition
toolPaletteSetGroupPosition ,
-- ** toolPaletteSetIconSize
toolPaletteSetIconSize ,
-- ** toolPaletteSetStyle
toolPaletteSetStyle ,
-- ** toolPaletteUnsetIconSize
toolPaletteUnsetIconSize ,
-- ** toolPaletteUnsetStyle
toolPaletteUnsetStyle ,
-- * Properties
-- ** IconSize
ToolPaletteIconSizePropertyInfo ,
constructToolPaletteIconSize ,
getToolPaletteIconSize ,
setToolPaletteIconSize ,
-- ** IconSizeSet
ToolPaletteIconSizeSetPropertyInfo ,
constructToolPaletteIconSizeSet ,
getToolPaletteIconSizeSet ,
setToolPaletteIconSizeSet ,
-- ** ToolbarStyle
ToolPaletteToolbarStylePropertyInfo ,
constructToolPaletteToolbarStyle ,
getToolPaletteToolbarStyle ,
setToolPaletteToolbarStyle ,
) 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
import qualified GI.Gdk as Gdk
newtype ToolPalette = ToolPalette (ForeignPtr ToolPalette)
foreign import ccall "gtk_tool_palette_get_type"
c_gtk_tool_palette_get_type :: IO GType
type instance ParentTypes ToolPalette = ToolPaletteParentTypes
type ToolPaletteParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable, Scrollable]
instance GObject ToolPalette where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tool_palette_get_type
class GObject o => ToolPaletteK o
instance (GObject o, IsDescendantOf ToolPalette o) => ToolPaletteK o
toToolPalette :: ToolPaletteK o => o -> IO ToolPalette
toToolPalette = unsafeCastTo ToolPalette
noToolPalette :: Maybe ToolPalette
noToolPalette = Nothing
-- VVV Prop "icon-size"
-- Type: TInterface "Gtk" "IconSize"
-- Flags: [PropertyReadable,PropertyWritable]
getToolPaletteIconSize :: (MonadIO m, ToolPaletteK o) => o -> m IconSize
getToolPaletteIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size"
setToolPaletteIconSize :: (MonadIO m, ToolPaletteK o) => o -> IconSize -> m ()
setToolPaletteIconSize obj val = liftIO $ setObjectPropertyEnum obj "icon-size" val
constructToolPaletteIconSize :: IconSize -> IO ([Char], GValue)
constructToolPaletteIconSize val = constructObjectPropertyEnum "icon-size" val
data ToolPaletteIconSizePropertyInfo
instance AttrInfo ToolPaletteIconSizePropertyInfo where
type AttrAllowedOps ToolPaletteIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolPaletteIconSizePropertyInfo = (~) IconSize
type AttrBaseTypeConstraint ToolPaletteIconSizePropertyInfo = ToolPaletteK
type AttrGetType ToolPaletteIconSizePropertyInfo = IconSize
type AttrLabel ToolPaletteIconSizePropertyInfo = "ToolPalette::icon-size"
attrGet _ = getToolPaletteIconSize
attrSet _ = setToolPaletteIconSize
attrConstruct _ = constructToolPaletteIconSize
-- VVV Prop "icon-size-set"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getToolPaletteIconSizeSet :: (MonadIO m, ToolPaletteK o) => o -> m Bool
getToolPaletteIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set"
setToolPaletteIconSizeSet :: (MonadIO m, ToolPaletteK o) => o -> Bool -> m ()
setToolPaletteIconSizeSet obj val = liftIO $ setObjectPropertyBool obj "icon-size-set" val
constructToolPaletteIconSizeSet :: Bool -> IO ([Char], GValue)
constructToolPaletteIconSizeSet val = constructObjectPropertyBool "icon-size-set" val
data ToolPaletteIconSizeSetPropertyInfo
instance AttrInfo ToolPaletteIconSizeSetPropertyInfo where
type AttrAllowedOps ToolPaletteIconSizeSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolPaletteIconSizeSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ToolPaletteIconSizeSetPropertyInfo = ToolPaletteK
type AttrGetType ToolPaletteIconSizeSetPropertyInfo = Bool
type AttrLabel ToolPaletteIconSizeSetPropertyInfo = "ToolPalette::icon-size-set"
attrGet _ = getToolPaletteIconSizeSet
attrSet _ = setToolPaletteIconSizeSet
attrConstruct _ = constructToolPaletteIconSizeSet
-- VVV Prop "toolbar-style"
-- Type: TInterface "Gtk" "ToolbarStyle"
-- Flags: [PropertyReadable,PropertyWritable]
getToolPaletteToolbarStyle :: (MonadIO m, ToolPaletteK o) => o -> m ToolbarStyle
getToolPaletteToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style"
setToolPaletteToolbarStyle :: (MonadIO m, ToolPaletteK o) => o -> ToolbarStyle -> m ()
setToolPaletteToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "toolbar-style" val
constructToolPaletteToolbarStyle :: ToolbarStyle -> IO ([Char], GValue)
constructToolPaletteToolbarStyle val = constructObjectPropertyEnum "toolbar-style" val
data ToolPaletteToolbarStylePropertyInfo
instance AttrInfo ToolPaletteToolbarStylePropertyInfo where
type AttrAllowedOps ToolPaletteToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToolPaletteToolbarStylePropertyInfo = (~) ToolbarStyle
type AttrBaseTypeConstraint ToolPaletteToolbarStylePropertyInfo = ToolPaletteK
type AttrGetType ToolPaletteToolbarStylePropertyInfo = ToolbarStyle
type AttrLabel ToolPaletteToolbarStylePropertyInfo = "ToolPalette::toolbar-style"
attrGet _ = getToolPaletteToolbarStyle
attrSet _ = setToolPaletteToolbarStyle
attrConstruct _ = constructToolPaletteToolbarStyle
type instance AttributeList ToolPalette = ToolPaletteAttributeList
type ToolPaletteAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("icon-size", ToolPaletteIconSizePropertyInfo), '("icon-size-set", ToolPaletteIconSizeSetPropertyInfo), '("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), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolPaletteToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
type instance SignalList ToolPalette = ToolPaletteSignalList
type ToolPaletteSignalList = ('[ '("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-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), '("parent-set", WidgetParentSetSignalInfo), '("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-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, *)])
-- method ToolPalette::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "ToolPalette"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_new" gtk_tool_palette_new ::
IO (Ptr ToolPalette)
toolPaletteNew ::
(MonadIO m) =>
m ToolPalette
toolPaletteNew = liftIO $ do
result <- gtk_tool_palette_new
checkUnexpectedReturnNULL "gtk_tool_palette_new" result
result' <- (newObject ToolPalette) result
return result'
-- method ToolPalette::add_drag_dest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_add_drag_dest" gtk_tool_palette_add_drag_dest ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "DestDefaults"
CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets"
CUInt -> -- actions : TInterface "Gdk" "DragAction"
IO ()
toolPaletteAddDragDest ::
(MonadIO m, ToolPaletteK a, WidgetK b) =>
a -> -- _obj
b -> -- widget
[DestDefaults] -> -- flags
[ToolPaletteDragTargets] -> -- targets
[Gdk.DragAction] -> -- actions
m ()
toolPaletteAddDragDest _obj widget flags targets actions = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let flags' = gflagsToWord flags
let targets' = gflagsToWord targets
let actions' = gflagsToWord actions
gtk_tool_palette_add_drag_dest _obj' widget' flags' targets' actions'
touchManagedPtr _obj
touchManagedPtr widget
return ()
-- method ToolPalette::get_drag_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_item" gtk_tool_palette_get_drag_item ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr SelectionData -> -- selection : TInterface "Gtk" "SelectionData"
IO (Ptr Widget)
toolPaletteGetDragItem ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
SelectionData -> -- selection
m Widget
toolPaletteGetDragItem _obj selection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_tool_palette_get_drag_item _obj' selection'
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
touchManagedPtr selection
return result'
-- method ToolPalette::get_drop_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItemGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drop_group" gtk_tool_palette_get_drop_group ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr ToolItemGroup)
toolPaletteGetDropGroup ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ToolItemGroup
toolPaletteGetDropGroup _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_drop_group _obj' x y
checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_group" result
result' <- (newObject ToolItemGroup) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_drop_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolItem"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drop_item" gtk_tool_palette_get_drop_item ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO (Ptr ToolItem)
toolPaletteGetDropItem ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- x
Int32 -> -- y
m ToolItem
toolPaletteGetDropItem _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_drop_item _obj' x y
checkUnexpectedReturnNULL "gtk_tool_palette_get_drop_item" result
result' <- (newObject ToolItem) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_exclusive" gtk_tool_palette_get_exclusive ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO CInt
toolPaletteGetExclusive ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Bool
toolPaletteGetExclusive _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_exclusive _obj' group'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr group
return result'
-- method ToolPalette::get_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_expand" gtk_tool_palette_get_expand ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO CInt
toolPaletteGetExpand ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Bool
toolPaletteGetExpand _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_expand _obj' group'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr group
return result'
-- method ToolPalette::get_group_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_group_position" gtk_tool_palette_get_group_position ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
IO Int32
toolPaletteGetGroupPosition ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
m Int32
toolPaletteGetGroupPosition _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
result <- gtk_tool_palette_get_group_position _obj' group'
touchManagedPtr _obj
touchManagedPtr group
return result
-- method ToolPalette::get_hadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_hadjustment" gtk_tool_palette_get_hadjustment ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO (Ptr Adjustment)
{-# DEPRECATED toolPaletteGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-}
toolPaletteGetHadjustment ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Adjustment
toolPaletteGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_tool_palette_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_icon_size" gtk_tool_palette_get_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO Int32
toolPaletteGetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Int32
toolPaletteGetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_icon_size _obj'
touchManagedPtr _obj
return result
-- method ToolPalette::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "ToolbarStyle"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_style" gtk_tool_palette_get_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO CUInt
toolPaletteGetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ToolbarStyle
toolPaletteGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_style _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method ToolPalette::get_vadjustment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Adjustment"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_vadjustment" gtk_tool_palette_get_vadjustment ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO (Ptr Adjustment)
{-# DEPRECATED toolPaletteGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-}
toolPaletteGetVadjustment ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m Adjustment
toolPaletteGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tool_palette_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_tool_palette_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
-- method ToolPalette::set_drag_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_drag_source" gtk_tool_palette_set_drag_source ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
CUInt -> -- targets : TInterface "Gtk" "ToolPaletteDragTargets"
IO ()
toolPaletteSetDragSource ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
[ToolPaletteDragTargets] -> -- targets
m ()
toolPaletteSetDragSource _obj targets = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let targets' = gflagsToWord targets
gtk_tool_palette_set_drag_source _obj' targets'
touchManagedPtr _obj
return ()
-- method ToolPalette::set_exclusive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_exclusive" gtk_tool_palette_set_exclusive ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
CInt -> -- exclusive : TBasicType TBoolean
IO ()
toolPaletteSetExclusive ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Bool -> -- exclusive
m ()
toolPaletteSetExclusive _obj group exclusive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
let exclusive' = (fromIntegral . fromEnum) exclusive
gtk_tool_palette_set_exclusive _obj' group' exclusive'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_expand" gtk_tool_palette_set_expand ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
CInt -> -- expand : TBasicType TBoolean
IO ()
toolPaletteSetExpand ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Bool -> -- expand
m ()
toolPaletteSetExpand _obj group expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
let expand' = (fromIntegral . fromEnum) expand
gtk_tool_palette_set_expand _obj' group' expand'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_group_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_group_position" gtk_tool_palette_set_group_position ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup"
Int32 -> -- position : TBasicType TInt32
IO ()
toolPaletteSetGroupPosition ::
(MonadIO m, ToolPaletteK a, ToolItemGroupK b) =>
a -> -- _obj
b -> -- group
Int32 -> -- position
m ()
toolPaletteSetGroupPosition _obj group position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrCastPtr group
gtk_tool_palette_set_group_position _obj' group' position
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method ToolPalette::set_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_icon_size" gtk_tool_palette_set_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
Int32 -> -- icon_size : TBasicType TInt32
IO ()
toolPaletteSetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
Int32 -> -- icon_size
m ()
toolPaletteSetIconSize _obj icon_size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_set_icon_size _obj' icon_size
touchManagedPtr _obj
return ()
-- method ToolPalette::set_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_set_style" gtk_tool_palette_set_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
CUInt -> -- style : TInterface "Gtk" "ToolbarStyle"
IO ()
toolPaletteSetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
ToolbarStyle -> -- style
m ()
toolPaletteSetStyle _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = (fromIntegral . fromEnum) style
gtk_tool_palette_set_style _obj' style'
touchManagedPtr _obj
return ()
-- method ToolPalette::unset_icon_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_unset_icon_size" gtk_tool_palette_unset_icon_size ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO ()
toolPaletteUnsetIconSize ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ()
toolPaletteUnsetIconSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_unset_icon_size _obj'
touchManagedPtr _obj
return ()
-- method ToolPalette::unset_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_unset_style" gtk_tool_palette_unset_style ::
Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette"
IO ()
toolPaletteUnsetStyle ::
(MonadIO m, ToolPaletteK a) =>
a -> -- _obj
m ()
toolPaletteUnsetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tool_palette_unset_style _obj'
touchManagedPtr _obj
return ()
-- method ToolPalette::get_drag_target_group
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_target_group" gtk_tool_palette_get_drag_target_group ::
IO (Ptr TargetEntry)
toolPaletteGetDragTargetGroup ::
(MonadIO m) =>
m TargetEntry
toolPaletteGetDragTargetGroup = liftIO $ do
result <- gtk_tool_palette_get_drag_target_group
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_group" result
result' <- (newBoxed TargetEntry) result
return result'
-- method ToolPalette::get_drag_target_item
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TargetEntry"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tool_palette_get_drag_target_item" gtk_tool_palette_get_drag_target_item ::
IO (Ptr TargetEntry)
toolPaletteGetDragTargetItem ::
(MonadIO m) =>
m TargetEntry
toolPaletteGetDragTargetItem = liftIO $ do
result <- gtk_tool_palette_get_drag_target_item
checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_item" result
result' <- (newBoxed TargetEntry) result
return result'