{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.HSV
(
HSV(..) ,
IsHSV ,
toHSV ,
#if defined(ENABLE_OVERLOADING)
ResolveHSVMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
HSVGetColorMethodInfo ,
#endif
hSVGetColor ,
#if defined(ENABLE_OVERLOADING)
HSVGetMetricsMethodInfo ,
#endif
hSVGetMetrics ,
#if defined(ENABLE_OVERLOADING)
HSVIsAdjustingMethodInfo ,
#endif
hSVIsAdjusting ,
hSVNew ,
#if defined(ENABLE_OVERLOADING)
HSVSetColorMethodInfo ,
#endif
hSVSetColor ,
#if defined(ENABLE_OVERLOADING)
HSVSetMetricsMethodInfo ,
#endif
hSVSetMetrics ,
hSVToRgb ,
HSVChangedCallback ,
#if defined(ENABLE_OVERLOADING)
HSVChangedSignalInfo ,
#endif
afterHSVChanged ,
onHSVChanged ,
HSVMoveCallback ,
#if defined(ENABLE_OVERLOADING)
HSVMoveSignalInfo ,
#endif
afterHSVMove ,
onHSVMove ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype HSV = HSV (SP.ManagedPtr HSV)
deriving (HSV -> HSV -> Bool
(HSV -> HSV -> Bool) -> (HSV -> HSV -> Bool) -> Eq HSV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HSV -> HSV -> Bool
== :: HSV -> HSV -> Bool
$c/= :: HSV -> HSV -> Bool
/= :: HSV -> HSV -> Bool
Eq)
instance SP.ManagedPtrNewtype HSV where
toManagedPtr :: HSV -> ManagedPtr HSV
toManagedPtr (HSV ManagedPtr HSV
p) = ManagedPtr HSV
p
foreign import ccall "gtk_hsv_get_type"
c_gtk_hsv_get_type :: IO B.Types.GType
instance B.Types.TypedObject HSV where
glibType :: IO GType
glibType = IO GType
c_gtk_hsv_get_type
instance B.Types.GObject HSV
class (SP.GObject o, O.IsDescendantOf HSV o) => IsHSV o
instance (SP.GObject o, O.IsDescendantOf HSV o) => IsHSV o
instance O.HasParentTypes HSV
type instance O.ParentTypes HSV = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toHSV :: (MIO.MonadIO m, IsHSV o) => o -> m HSV
toHSV :: forall (m :: * -> *) o. (MonadIO m, IsHSV o) => o -> m HSV
toHSV = IO HSV -> m HSV
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO HSV -> m HSV) -> (o -> IO HSV) -> o -> m HSV
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr HSV -> HSV) -> o -> IO HSV
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr HSV -> HSV
HSV
instance B.GValue.IsGValue (Maybe HSV) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_hsv_get_type
gvalueSet_ :: Ptr GValue -> Maybe HSV -> IO ()
gvalueSet_ Ptr GValue
gv Maybe HSV
P.Nothing = Ptr GValue -> Ptr HSV -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr HSV
forall a. Ptr a
FP.nullPtr :: FP.Ptr HSV)
gvalueSet_ Ptr GValue
gv (P.Just HSV
obj) = HSV -> (Ptr HSV -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr HSV
obj (Ptr GValue -> Ptr HSV -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe HSV)
gvalueGet_ Ptr GValue
gv = do
Ptr HSV
ptr <- Ptr GValue -> IO (Ptr HSV)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr HSV)
if Ptr HSV
ptr Ptr HSV -> Ptr HSV -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr HSV
forall a. Ptr a
FP.nullPtr
then HSV -> Maybe HSV
forall a. a -> Maybe a
P.Just (HSV -> Maybe HSV) -> IO HSV -> IO (Maybe HSV)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr HSV -> HSV) -> Ptr HSV -> IO HSV
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr HSV -> HSV
HSV Ptr HSV
ptr
else Maybe HSV -> IO (Maybe HSV)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe HSV
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveHSVMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveHSVMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveHSVMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveHSVMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveHSVMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveHSVMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveHSVMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveHSVMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveHSVMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveHSVMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveHSVMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveHSVMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveHSVMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveHSVMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveHSVMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveHSVMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveHSVMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveHSVMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveHSVMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveHSVMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveHSVMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveHSVMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveHSVMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveHSVMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveHSVMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveHSVMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveHSVMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveHSVMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveHSVMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveHSVMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveHSVMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveHSVMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveHSVMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveHSVMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveHSVMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveHSVMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveHSVMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveHSVMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveHSVMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveHSVMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveHSVMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveHSVMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveHSVMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveHSVMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveHSVMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveHSVMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveHSVMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveHSVMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveHSVMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveHSVMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveHSVMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveHSVMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveHSVMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveHSVMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveHSVMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveHSVMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveHSVMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveHSVMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveHSVMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveHSVMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveHSVMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveHSVMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveHSVMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveHSVMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveHSVMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveHSVMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveHSVMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveHSVMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveHSVMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveHSVMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveHSVMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveHSVMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveHSVMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveHSVMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveHSVMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveHSVMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveHSVMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveHSVMethod "isAdjusting" o = HSVIsAdjustingMethodInfo
ResolveHSVMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveHSVMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveHSVMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveHSVMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveHSVMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveHSVMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveHSVMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveHSVMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveHSVMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveHSVMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveHSVMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveHSVMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveHSVMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveHSVMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveHSVMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveHSVMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveHSVMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveHSVMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveHSVMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveHSVMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveHSVMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveHSVMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveHSVMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveHSVMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveHSVMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveHSVMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveHSVMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveHSVMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveHSVMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveHSVMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveHSVMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveHSVMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveHSVMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveHSVMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveHSVMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveHSVMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveHSVMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveHSVMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveHSVMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveHSVMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveHSVMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveHSVMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveHSVMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveHSVMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveHSVMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveHSVMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveHSVMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveHSVMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveHSVMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveHSVMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveHSVMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveHSVMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveHSVMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveHSVMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveHSVMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveHSVMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveHSVMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveHSVMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveHSVMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveHSVMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveHSVMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveHSVMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveHSVMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveHSVMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveHSVMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveHSVMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveHSVMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveHSVMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveHSVMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveHSVMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveHSVMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveHSVMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveHSVMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveHSVMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveHSVMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveHSVMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveHSVMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveHSVMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveHSVMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveHSVMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveHSVMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveHSVMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveHSVMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveHSVMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveHSVMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveHSVMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveHSVMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveHSVMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveHSVMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveHSVMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveHSVMethod "getColor" o = HSVGetColorMethodInfo
ResolveHSVMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveHSVMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveHSVMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveHSVMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveHSVMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveHSVMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveHSVMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveHSVMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveHSVMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveHSVMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveHSVMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveHSVMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveHSVMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveHSVMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveHSVMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveHSVMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveHSVMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveHSVMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveHSVMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveHSVMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveHSVMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveHSVMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveHSVMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveHSVMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveHSVMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveHSVMethod "getMetrics" o = HSVGetMetricsMethodInfo
ResolveHSVMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveHSVMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveHSVMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveHSVMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveHSVMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveHSVMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveHSVMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveHSVMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveHSVMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveHSVMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveHSVMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveHSVMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveHSVMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveHSVMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveHSVMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveHSVMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveHSVMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveHSVMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveHSVMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveHSVMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveHSVMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveHSVMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveHSVMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveHSVMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveHSVMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveHSVMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveHSVMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveHSVMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveHSVMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveHSVMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveHSVMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveHSVMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveHSVMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveHSVMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveHSVMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveHSVMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveHSVMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveHSVMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveHSVMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveHSVMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveHSVMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveHSVMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveHSVMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveHSVMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveHSVMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveHSVMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveHSVMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveHSVMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveHSVMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveHSVMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveHSVMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveHSVMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveHSVMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveHSVMethod "setColor" o = HSVSetColorMethodInfo
ResolveHSVMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveHSVMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveHSVMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveHSVMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveHSVMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveHSVMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveHSVMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveHSVMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveHSVMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveHSVMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveHSVMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveHSVMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveHSVMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveHSVMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveHSVMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveHSVMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveHSVMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveHSVMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveHSVMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveHSVMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveHSVMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveHSVMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveHSVMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveHSVMethod "setMetrics" o = HSVSetMetricsMethodInfo
ResolveHSVMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveHSVMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveHSVMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveHSVMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveHSVMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveHSVMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveHSVMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveHSVMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveHSVMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveHSVMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveHSVMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveHSVMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveHSVMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveHSVMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveHSVMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveHSVMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveHSVMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveHSVMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveHSVMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveHSVMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveHSVMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveHSVMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveHSVMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveHSVMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveHSVMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveHSVMethod t HSV, O.OverloadedMethod info HSV p) => OL.IsLabel t (HSV -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveHSVMethod t HSV, O.OverloadedMethod info HSV p, R.HasField t HSV p) => R.HasField t HSV p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveHSVMethod t HSV, O.OverloadedMethodInfo info HSV) => OL.IsLabel t (O.MethodProxy info HSV) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type HSVChangedCallback =
IO ()
type C_HSVChangedCallback =
Ptr HSV ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_HSVChangedCallback :: C_HSVChangedCallback -> IO (FunPtr C_HSVChangedCallback)
wrap_HSVChangedCallback ::
GObject a => (a -> HSVChangedCallback) ->
C_HSVChangedCallback
wrap_HSVChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_HSVChangedCallback
wrap_HSVChangedCallback a -> IO ()
gi'cb Ptr HSV
gi'selfPtr Ptr ()
_ = do
Ptr HSV -> (HSV -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr HSV
gi'selfPtr ((HSV -> IO ()) -> IO ()) -> (HSV -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \HSV
gi'self -> a -> IO ()
gi'cb (HSV -> a
forall a b. Coercible a b => a -> b
Coerce.coerce HSV
gi'self)
onHSVChanged :: (IsHSV a, MonadIO m) => a -> ((?self :: a) => HSVChangedCallback) -> m SignalHandlerId
onHSVChanged :: forall a (m :: * -> *).
(IsHSV a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onHSVChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_HSVChangedCallback
wrapped' = (a -> IO ()) -> C_HSVChangedCallback
forall a. GObject a => (a -> IO ()) -> C_HSVChangedCallback
wrap_HSVChangedCallback a -> IO ()
wrapped
FunPtr C_HSVChangedCallback
wrapped'' <- C_HSVChangedCallback -> IO (FunPtr C_HSVChangedCallback)
mk_HSVChangedCallback C_HSVChangedCallback
wrapped'
a
-> Text
-> FunPtr C_HSVChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_HSVChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterHSVChanged :: (IsHSV a, MonadIO m) => a -> ((?self :: a) => HSVChangedCallback) -> m SignalHandlerId
afterHSVChanged :: forall a (m :: * -> *).
(IsHSV a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterHSVChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_HSVChangedCallback
wrapped' = (a -> IO ()) -> C_HSVChangedCallback
forall a. GObject a => (a -> IO ()) -> C_HSVChangedCallback
wrap_HSVChangedCallback a -> IO ()
wrapped
FunPtr C_HSVChangedCallback
wrapped'' <- C_HSVChangedCallback -> IO (FunPtr C_HSVChangedCallback)
mk_HSVChangedCallback C_HSVChangedCallback
wrapped'
a
-> Text
-> FunPtr C_HSVChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"changed" FunPtr C_HSVChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data HSVChangedSignalInfo
instance SignalInfo HSVChangedSignalInfo where
type HaskellCallbackType HSVChangedSignalInfo = HSVChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_HSVChangedCallback cb
cb'' <- mk_HSVChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV::changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#g:signal:changed"})
#endif
type HSVMoveCallback =
Gtk.Enums.DirectionType
-> IO ()
type C_HSVMoveCallback =
Ptr HSV ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_HSVMoveCallback :: C_HSVMoveCallback -> IO (FunPtr C_HSVMoveCallback)
wrap_HSVMoveCallback ::
GObject a => (a -> HSVMoveCallback) ->
C_HSVMoveCallback
wrap_HSVMoveCallback :: forall a. GObject a => (a -> HSVMoveCallback) -> C_HSVMoveCallback
wrap_HSVMoveCallback a -> HSVMoveCallback
gi'cb Ptr HSV
gi'selfPtr CUInt
object Ptr ()
_ = do
let object' :: DirectionType
object' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
object
Ptr HSV -> (HSV -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr HSV
gi'selfPtr ((HSV -> IO ()) -> IO ()) -> (HSV -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \HSV
gi'self -> a -> HSVMoveCallback
gi'cb (HSV -> a
forall a b. Coercible a b => a -> b
Coerce.coerce HSV
gi'self) DirectionType
object'
onHSVMove :: (IsHSV a, MonadIO m) => a -> ((?self :: a) => HSVMoveCallback) -> m SignalHandlerId
onHSVMove :: forall a (m :: * -> *).
(IsHSV a, MonadIO m) =>
a -> ((?self::a) => HSVMoveCallback) -> m SignalHandlerId
onHSVMove a
obj (?self::a) => HSVMoveCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> HSVMoveCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => HSVMoveCallback
HSVMoveCallback
cb
let wrapped' :: C_HSVMoveCallback
wrapped' = (a -> HSVMoveCallback) -> C_HSVMoveCallback
forall a. GObject a => (a -> HSVMoveCallback) -> C_HSVMoveCallback
wrap_HSVMoveCallback a -> HSVMoveCallback
wrapped
FunPtr C_HSVMoveCallback
wrapped'' <- C_HSVMoveCallback -> IO (FunPtr C_HSVMoveCallback)
mk_HSVMoveCallback C_HSVMoveCallback
wrapped'
a
-> Text
-> FunPtr C_HSVMoveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move" FunPtr C_HSVMoveCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterHSVMove :: (IsHSV a, MonadIO m) => a -> ((?self :: a) => HSVMoveCallback) -> m SignalHandlerId
afterHSVMove :: forall a (m :: * -> *).
(IsHSV a, MonadIO m) =>
a -> ((?self::a) => HSVMoveCallback) -> m SignalHandlerId
afterHSVMove a
obj (?self::a) => HSVMoveCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> HSVMoveCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => HSVMoveCallback
HSVMoveCallback
cb
let wrapped' :: C_HSVMoveCallback
wrapped' = (a -> HSVMoveCallback) -> C_HSVMoveCallback
forall a. GObject a => (a -> HSVMoveCallback) -> C_HSVMoveCallback
wrap_HSVMoveCallback a -> HSVMoveCallback
wrapped
FunPtr C_HSVMoveCallback
wrapped'' <- C_HSVMoveCallback -> IO (FunPtr C_HSVMoveCallback)
mk_HSVMoveCallback C_HSVMoveCallback
wrapped'
a
-> Text
-> FunPtr C_HSVMoveCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move" FunPtr C_HSVMoveCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data HSVMoveSignalInfo
instance SignalInfo HSVMoveSignalInfo where
type HaskellCallbackType HSVMoveSignalInfo = HSVMoveCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_HSVMoveCallback cb
cb'' <- mk_HSVMoveCallback cb'
connectSignalFunPtr obj "move" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV::move"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#g:signal:move"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList HSV
type instance O.AttributeList HSV = HSVAttributeList
type HSVAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList HSV = HSVSignalList
type HSVSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_hsv_new" gtk_hsv_new ::
IO (Ptr HSV)
hSVNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m HSV
hSVNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m HSV
hSVNew = IO HSV -> m HSV
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSV -> m HSV) -> IO HSV -> m HSV
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
result <- IO (Ptr HSV)
gtk_hsv_new
Text -> Ptr HSV -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSVNew" Ptr HSV
result
HSV
result' <- ((ManagedPtr HSV -> HSV) -> Ptr HSV -> IO HSV
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr HSV -> HSV
HSV) Ptr HSV
result
HSV -> IO HSV
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return HSV
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_hsv_get_color" gtk_hsv_get_color ::
Ptr HSV ->
Ptr CDouble ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
hSVGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsHSV a) =>
a
-> m ((Double, Double, Double))
hSVGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHSV a) =>
a -> m (Double, Double, Double)
hSVGetColor a
hsv = IO (Double, Double, Double) -> m (Double, Double, Double)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Double, Double, Double) -> m (Double, Double, Double))
-> IO (Double, Double, Double) -> m (Double, Double, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
hsv' <- a -> IO (Ptr HSV)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hsv
Ptr CDouble
h <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
s <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
v <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr HSV -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()
gtk_hsv_get_color Ptr HSV
hsv' Ptr CDouble
h Ptr CDouble
s Ptr CDouble
v
CDouble
h' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
h
let h'' :: Double
h'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
h'
CDouble
s' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
s
let s'' :: Double
s'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
s'
CDouble
v' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
v
let v'' :: Double
v'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
v'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hsv
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
h
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
s
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
v
(Double, Double, Double) -> IO (Double, Double, Double)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Double
h'', Double
s'', Double
v'')
#if defined(ENABLE_OVERLOADING)
data HSVGetColorMethodInfo
instance (signature ~ (m ((Double, Double, Double))), MonadIO m, IsHSV a) => O.OverloadedMethod HSVGetColorMethodInfo a signature where
overloadedMethod = hSVGetColor
instance O.OverloadedMethodInfo HSVGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV.hSVGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#v:hSVGetColor"
})
#endif
foreign import ccall "gtk_hsv_get_metrics" gtk_hsv_get_metrics ::
Ptr HSV ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
hSVGetMetrics ::
(B.CallStack.HasCallStack, MonadIO m, IsHSV a) =>
a
-> m ((Int32, Int32))
hSVGetMetrics :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHSV a) =>
a -> m (Int32, Int32)
hSVGetMetrics a
hsv = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
hsv' <- a -> IO (Ptr HSV)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hsv
Ptr Int32
size <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
ringWidth <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr HSV -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_hsv_get_metrics Ptr HSV
hsv' Ptr Int32
size Ptr Int32
ringWidth
Int32
size' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
size
Int32
ringWidth' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
ringWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hsv
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
size
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
ringWidth
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
size', Int32
ringWidth')
#if defined(ENABLE_OVERLOADING)
data HSVGetMetricsMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsHSV a) => O.OverloadedMethod HSVGetMetricsMethodInfo a signature where
overloadedMethod = hSVGetMetrics
instance O.OverloadedMethodInfo HSVGetMetricsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV.hSVGetMetrics",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#v:hSVGetMetrics"
})
#endif
foreign import ccall "gtk_hsv_is_adjusting" gtk_hsv_is_adjusting ::
Ptr HSV ->
IO CInt
hSVIsAdjusting ::
(B.CallStack.HasCallStack, MonadIO m, IsHSV a) =>
a
-> m Bool
hSVIsAdjusting :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHSV a) =>
a -> m Bool
hSVIsAdjusting a
hsv = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
hsv' <- a -> IO (Ptr HSV)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hsv
CInt
result <- Ptr HSV -> IO CInt
gtk_hsv_is_adjusting Ptr HSV
hsv'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hsv
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HSVIsAdjustingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHSV a) => O.OverloadedMethod HSVIsAdjustingMethodInfo a signature where
overloadedMethod = hSVIsAdjusting
instance O.OverloadedMethodInfo HSVIsAdjustingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV.hSVIsAdjusting",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#v:hSVIsAdjusting"
})
#endif
foreign import ccall "gtk_hsv_set_color" gtk_hsv_set_color ::
Ptr HSV ->
CDouble ->
CDouble ->
CDouble ->
IO ()
hSVSetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsHSV a) =>
a
-> Double
-> Double
-> Double
-> m ()
hSVSetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHSV a) =>
a -> Double -> Double -> Double -> m ()
hSVSetColor a
hsv Double
h Double
s Double
v = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
hsv' <- a -> IO (Ptr HSV)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hsv
let h' :: CDouble
h' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
h
let s' :: CDouble
s' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
s
let v' :: CDouble
v' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
v
Ptr HSV -> CDouble -> CDouble -> CDouble -> IO ()
gtk_hsv_set_color Ptr HSV
hsv' CDouble
h' CDouble
s' CDouble
v'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hsv
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HSVSetColorMethodInfo
instance (signature ~ (Double -> Double -> Double -> m ()), MonadIO m, IsHSV a) => O.OverloadedMethod HSVSetColorMethodInfo a signature where
overloadedMethod = hSVSetColor
instance O.OverloadedMethodInfo HSVSetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV.hSVSetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#v:hSVSetColor"
})
#endif
foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics ::
Ptr HSV ->
Int32 ->
Int32 ->
IO ()
hSVSetMetrics ::
(B.CallStack.HasCallStack, MonadIO m, IsHSV a) =>
a
-> Int32
-> Int32
-> m ()
hSVSetMetrics :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHSV a) =>
a -> Int32 -> Int32 -> m ()
hSVSetMetrics a
hsv Int32
size Int32
ringWidth = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr HSV
hsv' <- a -> IO (Ptr HSV)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hsv
Ptr HSV -> Int32 -> Int32 -> IO ()
gtk_hsv_set_metrics Ptr HSV
hsv' Int32
size Int32
ringWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hsv
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HSVSetMetricsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsHSV a) => O.OverloadedMethod HSVSetMetricsMethodInfo a signature where
overloadedMethod = hSVSetMetrics
instance O.OverloadedMethodInfo HSVSetMetricsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.HSV.hSVSetMetrics",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-HSV.html#v:hSVSetMetrics"
})
#endif
foreign import ccall "gtk_hsv_to_rgb" gtk_hsv_to_rgb ::
CDouble ->
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
hSVToRgb ::
(B.CallStack.HasCallStack, MonadIO m) =>
Double
-> Double
-> Double
-> m ((Double, Double, Double))
hSVToRgb :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Double -> Double -> Double -> m (Double, Double, Double)
hSVToRgb Double
h Double
s Double
v = IO (Double, Double, Double) -> m (Double, Double, Double)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Double, Double, Double) -> m (Double, Double, Double))
-> IO (Double, Double, Double) -> m (Double, Double, Double)
forall a b. (a -> b) -> a -> b
$ do
let h' :: CDouble
h' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
h
let s' :: CDouble
s' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
s
let v' :: CDouble
v' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
v
Ptr CDouble
r <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
g <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
b <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CDouble
-> CDouble
-> CDouble
-> Ptr CDouble
-> Ptr CDouble
-> Ptr CDouble
-> IO ()
gtk_hsv_to_rgb CDouble
h' CDouble
s' CDouble
v' Ptr CDouble
r Ptr CDouble
g Ptr CDouble
b
CDouble
r' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
r
let r'' :: Double
r'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
r'
CDouble
g' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
g
let g'' :: Double
g'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
g'
CDouble
b' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
b
let b'' :: Double
b'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
b'
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
r
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
g
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
b
(Double, Double, Double) -> IO (Double, Double, Double)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Double
r'', Double
g'', Double
b'')
#if defined(ENABLE_OVERLOADING)
#endif