gi-gtk-0.3.18.13: GI/Gtk/Objects/HSV.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.HSV
(
-- * Exported types
HSV(..) ,
HSVK ,
toHSV ,
noHSV ,
-- * Methods
-- ** hSVGetColor
HSVGetColorMethodInfo ,
hSVGetColor ,
-- ** hSVGetMetrics
HSVGetMetricsMethodInfo ,
hSVGetMetrics ,
-- ** hSVIsAdjusting
HSVIsAdjustingMethodInfo ,
hSVIsAdjusting ,
-- ** hSVNew
hSVNew ,
-- ** hSVSetColor
HSVSetColorMethodInfo ,
hSVSetColor ,
-- ** hSVSetMetrics
HSVSetMetricsMethodInfo ,
hSVSetMetrics ,
-- ** hSVToRgb
hSVToRgb ,
-- * Signals
-- ** Changed
HSVChangedCallback ,
HSVChangedCallbackC ,
HSVChangedSignalInfo ,
afterHSVChanged ,
hSVChangedCallbackWrapper ,
hSVChangedClosure ,
mkHSVChangedCallback ,
noHSVChangedCallback ,
onHSVChanged ,
-- ** Move
HSVMoveCallback ,
HSVMoveCallbackC ,
HSVMoveSignalInfo ,
afterHSVMove ,
hSVMoveCallbackWrapper ,
hSVMoveClosure ,
mkHSVMoveCallback ,
noHSVMoveCallback ,
onHSVMove ,
) 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 HSV = HSV (ForeignPtr HSV)
foreign import ccall "gtk_hsv_get_type"
c_gtk_hsv_get_type :: IO GType
type instance ParentTypes HSV = HSVParentTypes
type HSVParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject HSV where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_hsv_get_type
class GObject o => HSVK o
instance (GObject o, IsDescendantOf HSV o) => HSVK o
toHSV :: HSVK o => o -> IO HSV
toHSV = unsafeCastTo HSV
noHSV :: Maybe HSV
noHSV = Nothing
type family ResolveHSVMethod (t :: Symbol) (o :: *) :: * where
ResolveHSVMethod "activate" o = WidgetActivateMethodInfo
ResolveHSVMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo
ResolveHSVMethod "addChild" o = BuildableAddChildMethodInfo
ResolveHSVMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo
ResolveHSVMethod "addEvents" o = WidgetAddEventsMethodInfo
ResolveHSVMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo
ResolveHSVMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo
ResolveHSVMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveHSVMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveHSVMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo
ResolveHSVMethod "childFocus" o = WidgetChildFocusMethodInfo
ResolveHSVMethod "childNotify" o = WidgetChildNotifyMethodInfo
ResolveHSVMethod "classPath" o = WidgetClassPathMethodInfo
ResolveHSVMethod "computeExpand" o = WidgetComputeExpandMethodInfo
ResolveHSVMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveHSVMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo
ResolveHSVMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo
ResolveHSVMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveHSVMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveHSVMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveHSVMethod "destroy" o = WidgetDestroyMethodInfo
ResolveHSVMethod "destroyed" o = WidgetDestroyedMethodInfo
ResolveHSVMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo
ResolveHSVMethod "dragBegin" o = WidgetDragBeginMethodInfo
ResolveHSVMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo
ResolveHSVMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo
ResolveHSVMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo
ResolveHSVMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo
ResolveHSVMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo
ResolveHSVMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo
ResolveHSVMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo
ResolveHSVMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo
ResolveHSVMethod "dragDestSet" o = WidgetDragDestSetMethodInfo
ResolveHSVMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo
ResolveHSVMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo
ResolveHSVMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo
ResolveHSVMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo
ResolveHSVMethod "dragGetData" o = WidgetDragGetDataMethodInfo
ResolveHSVMethod "dragHighlight" o = WidgetDragHighlightMethodInfo
ResolveHSVMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo
ResolveHSVMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo
ResolveHSVMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo
ResolveHSVMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo
ResolveHSVMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo
ResolveHSVMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo
ResolveHSVMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo
ResolveHSVMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo
ResolveHSVMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo
ResolveHSVMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo
ResolveHSVMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo
ResolveHSVMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo
ResolveHSVMethod "draw" o = WidgetDrawMethodInfo
ResolveHSVMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo
ResolveHSVMethod "errorBell" o = WidgetErrorBellMethodInfo
ResolveHSVMethod "event" o = WidgetEventMethodInfo
ResolveHSVMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveHSVMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo
ResolveHSVMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveHSVMethod "grabAdd" o = WidgetGrabAddMethodInfo
ResolveHSVMethod "grabDefault" o = WidgetGrabDefaultMethodInfo
ResolveHSVMethod "grabFocus" o = WidgetGrabFocusMethodInfo
ResolveHSVMethod "grabRemove" o = WidgetGrabRemoveMethodInfo
ResolveHSVMethod "hasDefault" o = WidgetHasDefaultMethodInfo
ResolveHSVMethod "hasFocus" o = WidgetHasFocusMethodInfo
ResolveHSVMethod "hasGrab" o = WidgetHasGrabMethodInfo
ResolveHSVMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo
ResolveHSVMethod "hasScreen" o = WidgetHasScreenMethodInfo
ResolveHSVMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo
ResolveHSVMethod "hide" o = WidgetHideMethodInfo
ResolveHSVMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo
ResolveHSVMethod "inDestruction" o = WidgetInDestructionMethodInfo
ResolveHSVMethod "initTemplate" o = WidgetInitTemplateMethodInfo
ResolveHSVMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo
ResolveHSVMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo
ResolveHSVMethod "intersect" o = WidgetIntersectMethodInfo
ResolveHSVMethod "isAdjusting" o = HSVIsAdjustingMethodInfo
ResolveHSVMethod "isAncestor" o = WidgetIsAncestorMethodInfo
ResolveHSVMethod "isComposited" o = WidgetIsCompositedMethodInfo
ResolveHSVMethod "isDrawable" o = WidgetIsDrawableMethodInfo
ResolveHSVMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveHSVMethod "isFocus" o = WidgetIsFocusMethodInfo
ResolveHSVMethod "isSensitive" o = WidgetIsSensitiveMethodInfo
ResolveHSVMethod "isToplevel" o = WidgetIsToplevelMethodInfo
ResolveHSVMethod "isVisible" o = WidgetIsVisibleMethodInfo
ResolveHSVMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo
ResolveHSVMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo
ResolveHSVMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo
ResolveHSVMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo
ResolveHSVMethod "map" o = WidgetMapMethodInfo
ResolveHSVMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo
ResolveHSVMethod "modifyBase" o = WidgetModifyBaseMethodInfo
ResolveHSVMethod "modifyBg" o = WidgetModifyBgMethodInfo
ResolveHSVMethod "modifyCursor" o = WidgetModifyCursorMethodInfo
ResolveHSVMethod "modifyFg" o = WidgetModifyFgMethodInfo
ResolveHSVMethod "modifyFont" o = WidgetModifyFontMethodInfo
ResolveHSVMethod "modifyStyle" o = WidgetModifyStyleMethodInfo
ResolveHSVMethod "modifyText" o = WidgetModifyTextMethodInfo
ResolveHSVMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveHSVMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveHSVMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo
ResolveHSVMethod "overrideColor" o = WidgetOverrideColorMethodInfo
ResolveHSVMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo
ResolveHSVMethod "overrideFont" o = WidgetOverrideFontMethodInfo
ResolveHSVMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo
ResolveHSVMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveHSVMethod "path" o = WidgetPathMethodInfo
ResolveHSVMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo
ResolveHSVMethod "queueDraw" o = WidgetQueueDrawMethodInfo
ResolveHSVMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo
ResolveHSVMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo
ResolveHSVMethod "queueResize" o = WidgetQueueResizeMethodInfo
ResolveHSVMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo
ResolveHSVMethod "realize" o = WidgetRealizeMethodInfo
ResolveHSVMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveHSVMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveHSVMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo
ResolveHSVMethod "registerWindow" o = WidgetRegisterWindowMethodInfo
ResolveHSVMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo
ResolveHSVMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo
ResolveHSVMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo
ResolveHSVMethod "renderIcon" o = WidgetRenderIconMethodInfo
ResolveHSVMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo
ResolveHSVMethod "reparent" o = WidgetReparentMethodInfo
ResolveHSVMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveHSVMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveHSVMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo
ResolveHSVMethod "resetStyle" o = WidgetResetStyleMethodInfo
ResolveHSVMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveHSVMethod "sendExpose" o = WidgetSendExposeMethodInfo
ResolveHSVMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo
ResolveHSVMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo
ResolveHSVMethod "show" o = WidgetShowMethodInfo
ResolveHSVMethod "showAll" o = WidgetShowAllMethodInfo
ResolveHSVMethod "showNow" o = WidgetShowNowMethodInfo
ResolveHSVMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo
ResolveHSVMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo
ResolveHSVMethod "sizeRequest" o = WidgetSizeRequestMethodInfo
ResolveHSVMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveHSVMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveHSVMethod "styleAttach" o = WidgetStyleAttachMethodInfo
ResolveHSVMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo
ResolveHSVMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo
ResolveHSVMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveHSVMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo
ResolveHSVMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo
ResolveHSVMethod "unmap" o = WidgetUnmapMethodInfo
ResolveHSVMethod "unparent" o = WidgetUnparentMethodInfo
ResolveHSVMethod "unrealize" o = WidgetUnrealizeMethodInfo
ResolveHSVMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveHSVMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo
ResolveHSVMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo
ResolveHSVMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveHSVMethod "getAccessible" o = WidgetGetAccessibleMethodInfo
ResolveHSVMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo
ResolveHSVMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo
ResolveHSVMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo
ResolveHSVMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo
ResolveHSVMethod "getAllocation" o = WidgetGetAllocationMethodInfo
ResolveHSVMethod "getAncestor" o = WidgetGetAncestorMethodInfo
ResolveHSVMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo
ResolveHSVMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo
ResolveHSVMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo
ResolveHSVMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo
ResolveHSVMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo
ResolveHSVMethod "getClip" o = WidgetGetClipMethodInfo
ResolveHSVMethod "getClipboard" o = WidgetGetClipboardMethodInfo
ResolveHSVMethod "getColor" o = HSVGetColorMethodInfo
ResolveHSVMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo
ResolveHSVMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveHSVMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo
ResolveHSVMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo
ResolveHSVMethod "getDirection" o = WidgetGetDirectionMethodInfo
ResolveHSVMethod "getDisplay" o = WidgetGetDisplayMethodInfo
ResolveHSVMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo
ResolveHSVMethod "getEvents" o = WidgetGetEventsMethodInfo
ResolveHSVMethod "getFontMap" o = WidgetGetFontMapMethodInfo
ResolveHSVMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo
ResolveHSVMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo
ResolveHSVMethod "getHalign" o = WidgetGetHalignMethodInfo
ResolveHSVMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo
ResolveHSVMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo
ResolveHSVMethod "getHexpand" o = WidgetGetHexpandMethodInfo
ResolveHSVMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo
ResolveHSVMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveHSVMethod "getMapped" o = WidgetGetMappedMethodInfo
ResolveHSVMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo
ResolveHSVMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo
ResolveHSVMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo
ResolveHSVMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo
ResolveHSVMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo
ResolveHSVMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo
ResolveHSVMethod "getMetrics" o = HSVGetMetricsMethodInfo
ResolveHSVMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo
ResolveHSVMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo
ResolveHSVMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo
ResolveHSVMethod "getOpacity" o = WidgetGetOpacityMethodInfo
ResolveHSVMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo
ResolveHSVMethod "getParent" o = WidgetGetParentMethodInfo
ResolveHSVMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo
ResolveHSVMethod "getPath" o = WidgetGetPathMethodInfo
ResolveHSVMethod "getPointer" o = WidgetGetPointerMethodInfo
ResolveHSVMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo
ResolveHSVMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveHSVMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo
ResolveHSVMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo
ResolveHSVMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo
ResolveHSVMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo
ResolveHSVMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveHSVMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveHSVMethod "getRealized" o = WidgetGetRealizedMethodInfo
ResolveHSVMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo
ResolveHSVMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo
ResolveHSVMethod "getRequisition" o = WidgetGetRequisitionMethodInfo
ResolveHSVMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo
ResolveHSVMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo
ResolveHSVMethod "getScreen" o = WidgetGetScreenMethodInfo
ResolveHSVMethod "getSensitive" o = WidgetGetSensitiveMethodInfo
ResolveHSVMethod "getSettings" o = WidgetGetSettingsMethodInfo
ResolveHSVMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo
ResolveHSVMethod "getState" o = WidgetGetStateMethodInfo
ResolveHSVMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo
ResolveHSVMethod "getStyle" o = WidgetGetStyleMethodInfo
ResolveHSVMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo
ResolveHSVMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo
ResolveHSVMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo
ResolveHSVMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo
ResolveHSVMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo
ResolveHSVMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo
ResolveHSVMethod "getToplevel" o = WidgetGetToplevelMethodInfo
ResolveHSVMethod "getValign" o = WidgetGetValignMethodInfo
ResolveHSVMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo
ResolveHSVMethod "getVexpand" o = WidgetGetVexpandMethodInfo
ResolveHSVMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo
ResolveHSVMethod "getVisible" o = WidgetGetVisibleMethodInfo
ResolveHSVMethod "getVisual" o = WidgetGetVisualMethodInfo
ResolveHSVMethod "getWindow" o = WidgetGetWindowMethodInfo
ResolveHSVMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo
ResolveHSVMethod "setAllocation" o = WidgetSetAllocationMethodInfo
ResolveHSVMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo
ResolveHSVMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveHSVMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo
ResolveHSVMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo
ResolveHSVMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo
ResolveHSVMethod "setClip" o = WidgetSetClipMethodInfo
ResolveHSVMethod "setColor" o = HSVSetColorMethodInfo
ResolveHSVMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo
ResolveHSVMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveHSVMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo
ResolveHSVMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo
ResolveHSVMethod "setDirection" o = WidgetSetDirectionMethodInfo
ResolveHSVMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo
ResolveHSVMethod "setEvents" o = WidgetSetEventsMethodInfo
ResolveHSVMethod "setFontMap" o = WidgetSetFontMapMethodInfo
ResolveHSVMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo
ResolveHSVMethod "setHalign" o = WidgetSetHalignMethodInfo
ResolveHSVMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo
ResolveHSVMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo
ResolveHSVMethod "setHexpand" o = WidgetSetHexpandMethodInfo
ResolveHSVMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo
ResolveHSVMethod "setMapped" o = WidgetSetMappedMethodInfo
ResolveHSVMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo
ResolveHSVMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo
ResolveHSVMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo
ResolveHSVMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo
ResolveHSVMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo
ResolveHSVMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo
ResolveHSVMethod "setMetrics" o = HSVSetMetricsMethodInfo
ResolveHSVMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo
ResolveHSVMethod "setOpacity" o = WidgetSetOpacityMethodInfo
ResolveHSVMethod "setParent" o = WidgetSetParentMethodInfo
ResolveHSVMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo
ResolveHSVMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveHSVMethod "setRealized" o = WidgetSetRealizedMethodInfo
ResolveHSVMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo
ResolveHSVMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo
ResolveHSVMethod "setSensitive" o = WidgetSetSensitiveMethodInfo
ResolveHSVMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo
ResolveHSVMethod "setState" o = WidgetSetStateMethodInfo
ResolveHSVMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo
ResolveHSVMethod "setStyle" o = WidgetSetStyleMethodInfo
ResolveHSVMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo
ResolveHSVMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo
ResolveHSVMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo
ResolveHSVMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo
ResolveHSVMethod "setValign" o = WidgetSetValignMethodInfo
ResolveHSVMethod "setVexpand" o = WidgetSetVexpandMethodInfo
ResolveHSVMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo
ResolveHSVMethod "setVisible" o = WidgetSetVisibleMethodInfo
ResolveHSVMethod "setVisual" o = WidgetSetVisualMethodInfo
ResolveHSVMethod "setWindow" o = WidgetSetWindowMethodInfo
ResolveHSVMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabelProxy t (HSV -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabel t (HSV -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal HSV::changed
type HSVChangedCallback =
IO ()
noHSVChangedCallback :: Maybe HSVChangedCallback
noHSVChangedCallback = Nothing
type HSVChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHSVChangedCallback :: HSVChangedCallbackC -> IO (FunPtr HSVChangedCallbackC)
hSVChangedClosure :: HSVChangedCallback -> IO Closure
hSVChangedClosure cb = newCClosure =<< mkHSVChangedCallback wrapped
where wrapped = hSVChangedCallbackWrapper cb
hSVChangedCallbackWrapper ::
HSVChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
hSVChangedCallbackWrapper _cb _ _ = do
_cb
onHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId
onHSVChanged obj cb = liftIO $ connectHSVChanged obj cb SignalConnectBefore
afterHSVChanged :: (GObject a, MonadIO m) => a -> HSVChangedCallback -> m SignalHandlerId
afterHSVChanged obj cb = connectHSVChanged obj cb SignalConnectAfter
connectHSVChanged :: (GObject a, MonadIO m) =>
a -> HSVChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectHSVChanged obj cb after = liftIO $ do
cb' <- mkHSVChangedCallback (hSVChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- signal HSV::move
type HSVMoveCallback =
DirectionType ->
IO ()
noHSVMoveCallback :: Maybe HSVMoveCallback
noHSVMoveCallback = Nothing
type HSVMoveCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkHSVMoveCallback :: HSVMoveCallbackC -> IO (FunPtr HSVMoveCallbackC)
hSVMoveClosure :: HSVMoveCallback -> IO Closure
hSVMoveClosure cb = newCClosure =<< mkHSVMoveCallback wrapped
where wrapped = hSVMoveCallbackWrapper cb
hSVMoveCallbackWrapper ::
HSVMoveCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
hSVMoveCallbackWrapper _cb _ object _ = do
let object' = (toEnum . fromIntegral) object
_cb object'
onHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId
onHSVMove obj cb = liftIO $ connectHSVMove obj cb SignalConnectBefore
afterHSVMove :: (GObject a, MonadIO m) => a -> HSVMoveCallback -> m SignalHandlerId
afterHSVMove obj cb = connectHSVMove obj cb SignalConnectAfter
connectHSVMove :: (GObject a, MonadIO m) =>
a -> HSVMoveCallback -> SignalConnectMode -> m SignalHandlerId
connectHSVMove obj cb after = liftIO $ do
cb' <- mkHSVMoveCallback (hSVMoveCallbackWrapper cb)
connectSignalFunPtr obj "move" cb' after
type instance AttributeList HSV = HSVAttributeList
type HSVAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data HSVChangedSignalInfo
instance SignalInfo HSVChangedSignalInfo where
type HaskellCallbackType HSVChangedSignalInfo = HSVChangedCallback
connectSignal _ = connectHSVChanged
data HSVMoveSignalInfo
instance SignalInfo HSVMoveSignalInfo where
type HaskellCallbackType HSVMoveSignalInfo = HSVMoveCallback
connectSignal _ = connectHSVMove
type instance SignalList HSV = HSVSignalList
type HSVSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
-- method HSV::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gtk" "HSV"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_new" gtk_hsv_new ::
IO (Ptr HSV)
hSVNew ::
(MonadIO m) =>
m HSV -- result
hSVNew = liftIO $ do
result <- gtk_hsv_new
checkUnexpectedReturnNULL "gtk_hsv_new" result
result' <- (newObject HSV) result
return result'
-- method HSV::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_get_color" gtk_hsv_get_color ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Ptr CDouble -> -- h : TBasicType TDouble
Ptr CDouble -> -- s : TBasicType TDouble
Ptr CDouble -> -- v : TBasicType TDouble
IO ()
hSVGetColor ::
(MonadIO m, HSVK a) =>
a -- _obj
-> m (Double,Double,Double) -- result
hSVGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
h <- allocMem :: IO (Ptr CDouble)
s <- allocMem :: IO (Ptr CDouble)
v <- allocMem :: IO (Ptr CDouble)
gtk_hsv_get_color _obj' h s v
h' <- peek h
let h'' = realToFrac h'
s' <- peek s
let s'' = realToFrac s'
v' <- peek v
let v'' = realToFrac v'
touchManagedPtr _obj
freeMem h
freeMem s
freeMem v
return (h'', s'', v'')
data HSVGetColorMethodInfo
instance (signature ~ (m (Double,Double,Double)), MonadIO m, HSVK a) => MethodInfo HSVGetColorMethodInfo a signature where
overloadedMethod _ = hSVGetColor
-- method HSV::get_metrics
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_get_metrics" gtk_hsv_get_metrics ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Ptr Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- ring_width : TBasicType TInt32
IO ()
hSVGetMetrics ::
(MonadIO m, HSVK a) =>
a -- _obj
-> m (Int32,Int32) -- result
hSVGetMetrics _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
size <- allocMem :: IO (Ptr Int32)
ringWidth <- allocMem :: IO (Ptr Int32)
gtk_hsv_get_metrics _obj' size ringWidth
size' <- peek size
ringWidth' <- peek ringWidth
touchManagedPtr _obj
freeMem size
freeMem ringWidth
return (size', ringWidth')
data HSVGetMetricsMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, HSVK a) => MethodInfo HSVGetMetricsMethodInfo a signature where
overloadedMethod _ = hSVGetMetrics
-- method HSV::is_adjusting
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_is_adjusting" gtk_hsv_is_adjusting ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
IO CInt
hSVIsAdjusting ::
(MonadIO m, HSVK a) =>
a -- _obj
-> m Bool -- result
hSVIsAdjusting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_hsv_is_adjusting _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data HSVIsAdjustingMethodInfo
instance (signature ~ (m Bool), MonadIO m, HSVK a) => MethodInfo HSVIsAdjustingMethodInfo a signature where
overloadedMethod _ = hSVIsAdjusting
-- method HSV::set_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_set_color" gtk_hsv_set_color ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
CDouble -> -- h : TBasicType TDouble
CDouble -> -- s : TBasicType TDouble
CDouble -> -- v : TBasicType TDouble
IO ()
hSVSetColor ::
(MonadIO m, HSVK a) =>
a -- _obj
-> Double -- h
-> Double -- s
-> Double -- v
-> m () -- result
hSVSetColor _obj h s v = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let h' = realToFrac h
let s' = realToFrac s
let v' = realToFrac v
gtk_hsv_set_color _obj' h' s' v'
touchManagedPtr _obj
return ()
data HSVSetColorMethodInfo
instance (signature ~ (Double -> Double -> Double -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetColorMethodInfo a signature where
overloadedMethod _ = hSVSetColor
-- method HSV::set_metrics
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics ::
Ptr HSV -> -- _obj : TInterface "Gtk" "HSV"
Int32 -> -- size : TBasicType TInt32
Int32 -> -- ring_width : TBasicType TInt32
IO ()
hSVSetMetrics ::
(MonadIO m, HSVK a) =>
a -- _obj
-> Int32 -- size
-> Int32 -- ringWidth
-> m () -- result
hSVSetMetrics _obj size ringWidth = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_hsv_set_metrics _obj' size ringWidth
touchManagedPtr _obj
return ()
data HSVSetMetricsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetMetricsMethodInfo a signature where
overloadedMethod _ = hSVSetMetrics
-- method HSV::to_rgb
-- method type : MemberFunction
-- Args : [Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_hsv_to_rgb" gtk_hsv_to_rgb ::
CDouble -> -- h : TBasicType TDouble
CDouble -> -- s : TBasicType TDouble
CDouble -> -- v : TBasicType TDouble
Ptr CDouble -> -- r : TBasicType TDouble
Ptr CDouble -> -- g : TBasicType TDouble
Ptr CDouble -> -- b : TBasicType TDouble
IO ()
hSVToRgb ::
(MonadIO m) =>
Double -- h
-> Double -- s
-> Double -- v
-> m (Double,Double,Double) -- result
hSVToRgb h s v = liftIO $ do
let h' = realToFrac h
let s' = realToFrac s
let v' = realToFrac v
r <- allocMem :: IO (Ptr CDouble)
g <- allocMem :: IO (Ptr CDouble)
b <- allocMem :: IO (Ptr CDouble)
gtk_hsv_to_rgb h' s' v' r g b
r' <- peek r
let r'' = realToFrac r'
g' <- peek g
let g'' = realToFrac g'
b' <- peek b
let b'' = realToFrac b'
freeMem r
freeMem g
freeMem b
return (r'', g'', b'')