{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Calendar
(
Calendar(..) ,
IsCalendar ,
toCalendar ,
#if defined(ENABLE_OVERLOADING)
ResolveCalendarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CalendarClearMarksMethodInfo ,
#endif
calendarClearMarks ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDateMethodInfo ,
#endif
calendarGetDate ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDayIsMarkedMethodInfo ,
#endif
calendarGetDayIsMarked ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowDayNamesMethodInfo ,
#endif
calendarGetShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowHeadingMethodInfo ,
#endif
calendarGetShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowWeekNumbersMethodInfo ,
#endif
calendarGetShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarMarkDayMethodInfo ,
#endif
calendarMarkDay ,
calendarNew ,
#if defined(ENABLE_OVERLOADING)
CalendarSelectDayMethodInfo ,
#endif
calendarSelectDay ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowDayNamesMethodInfo ,
#endif
calendarSetShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowHeadingMethodInfo ,
#endif
calendarSetShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowWeekNumbersMethodInfo ,
#endif
calendarSetShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarUnmarkDayMethodInfo ,
#endif
calendarUnmarkDay ,
#if defined(ENABLE_OVERLOADING)
CalendarDayPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarDay ,
#endif
constructCalendarDay ,
getCalendarDay ,
setCalendarDay ,
#if defined(ENABLE_OVERLOADING)
CalendarMonthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarMonth ,
#endif
constructCalendarMonth ,
getCalendarMonth ,
setCalendarMonth ,
#if defined(ENABLE_OVERLOADING)
CalendarShowDayNamesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowDayNames ,
#endif
constructCalendarShowDayNames ,
getCalendarShowDayNames ,
setCalendarShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarShowHeadingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowHeading ,
#endif
constructCalendarShowHeading ,
getCalendarShowHeading ,
setCalendarShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarShowWeekNumbersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowWeekNumbers ,
#endif
constructCalendarShowWeekNumbers ,
getCalendarShowWeekNumbers ,
setCalendarShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarYearPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarYear ,
#endif
constructCalendarYear ,
getCalendarYear ,
setCalendarYear ,
CalendarDaySelectedCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarDaySelectedSignalInfo ,
#endif
afterCalendarDaySelected ,
onCalendarDaySelected ,
CalendarNextMonthCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarNextMonthSignalInfo ,
#endif
afterCalendarNextMonth ,
onCalendarNextMonth ,
CalendarNextYearCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarNextYearSignalInfo ,
#endif
afterCalendarNextYear ,
onCalendarNextYear ,
CalendarPrevMonthCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarPrevMonthSignalInfo ,
#endif
afterCalendarPrevMonth ,
onCalendarPrevMonth ,
CalendarPrevYearCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarPrevYearSignalInfo ,
#endif
afterCalendarPrevYear ,
onCalendarPrevYear ,
) 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.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Calendar = Calendar (SP.ManagedPtr Calendar)
deriving (Calendar -> Calendar -> Bool
(Calendar -> Calendar -> Bool)
-> (Calendar -> Calendar -> Bool) -> Eq Calendar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Calendar -> Calendar -> Bool
== :: Calendar -> Calendar -> Bool
$c/= :: Calendar -> Calendar -> Bool
/= :: Calendar -> Calendar -> Bool
Eq)
instance SP.ManagedPtrNewtype Calendar where
toManagedPtr :: Calendar -> ManagedPtr Calendar
toManagedPtr (Calendar ManagedPtr Calendar
p) = ManagedPtr Calendar
p
foreign import ccall "gtk_calendar_get_type"
c_gtk_calendar_get_type :: IO B.Types.GType
instance B.Types.TypedObject Calendar where
glibType :: IO GType
glibType = IO GType
c_gtk_calendar_get_type
instance B.Types.GObject Calendar
class (SP.GObject o, O.IsDescendantOf Calendar o) => IsCalendar o
instance (SP.GObject o, O.IsDescendantOf Calendar o) => IsCalendar o
instance O.HasParentTypes Calendar
type instance O.ParentTypes Calendar = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toCalendar :: (MIO.MonadIO m, IsCalendar o) => o -> m Calendar
toCalendar :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> m Calendar
toCalendar = IO Calendar -> m Calendar
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Calendar -> m Calendar)
-> (o -> IO Calendar) -> o -> m Calendar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Calendar -> Calendar) -> o -> IO Calendar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Calendar -> Calendar
Calendar
instance B.GValue.IsGValue (Maybe Calendar) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_calendar_get_type
gvalueSet_ :: Ptr GValue -> Maybe Calendar -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Calendar
P.Nothing = Ptr GValue -> Ptr Calendar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Calendar
forall a. Ptr a
FP.nullPtr :: FP.Ptr Calendar)
gvalueSet_ Ptr GValue
gv (P.Just Calendar
obj) = Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Calendar
obj (Ptr GValue -> Ptr Calendar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Calendar)
gvalueGet_ Ptr GValue
gv = do
Ptr Calendar
ptr <- Ptr GValue -> IO (Ptr Calendar)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Calendar)
if Ptr Calendar
ptr Ptr Calendar -> Ptr Calendar -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Calendar
forall a. Ptr a
FP.nullPtr
then Calendar -> Maybe Calendar
forall a. a -> Maybe a
P.Just (Calendar -> Maybe Calendar) -> IO Calendar -> IO (Maybe Calendar)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Calendar -> Calendar) -> Ptr Calendar -> IO Calendar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Calendar -> Calendar
Calendar Ptr Calendar
ptr
else Maybe Calendar -> IO (Maybe Calendar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Calendar
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCalendarMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCalendarMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveCalendarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveCalendarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveCalendarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveCalendarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveCalendarMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveCalendarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveCalendarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveCalendarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveCalendarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCalendarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCalendarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveCalendarMethod "clearMarks" o = CalendarClearMarksMethodInfo
ResolveCalendarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveCalendarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveCalendarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveCalendarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveCalendarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveCalendarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveCalendarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveCalendarMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveCalendarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveCalendarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveCalendarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCalendarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCalendarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCalendarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveCalendarMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveCalendarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveCalendarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveCalendarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveCalendarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveCalendarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveCalendarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveCalendarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveCalendarMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveCalendarMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveCalendarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveCalendarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveCalendarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCalendarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveCalendarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveCalendarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveCalendarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveCalendarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveCalendarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveCalendarMethod "markDay" o = CalendarMarkDayMethodInfo
ResolveCalendarMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveCalendarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveCalendarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCalendarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCalendarMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveCalendarMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveCalendarMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveCalendarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveCalendarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveCalendarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveCalendarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveCalendarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCalendarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCalendarMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveCalendarMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveCalendarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveCalendarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveCalendarMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveCalendarMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveCalendarMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveCalendarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCalendarMethod "selectDay" o = CalendarSelectDayMethodInfo
ResolveCalendarMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveCalendarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveCalendarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveCalendarMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveCalendarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCalendarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCalendarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCalendarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveCalendarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveCalendarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveCalendarMethod "unmarkDay" o = CalendarUnmarkDayMethodInfo
ResolveCalendarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveCalendarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveCalendarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCalendarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveCalendarMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveCalendarMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveCalendarMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveCalendarMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveCalendarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCalendarMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveCalendarMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveCalendarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveCalendarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveCalendarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveCalendarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveCalendarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveCalendarMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveCalendarMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveCalendarMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveCalendarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveCalendarMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveCalendarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveCalendarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveCalendarMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveCalendarMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveCalendarMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveCalendarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveCalendarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCalendarMethod "getDate" o = CalendarGetDateMethodInfo
ResolveCalendarMethod "getDayIsMarked" o = CalendarGetDayIsMarkedMethodInfo
ResolveCalendarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveCalendarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveCalendarMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveCalendarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveCalendarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveCalendarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveCalendarMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveCalendarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveCalendarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveCalendarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveCalendarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveCalendarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveCalendarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveCalendarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveCalendarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveCalendarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveCalendarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveCalendarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveCalendarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveCalendarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveCalendarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveCalendarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveCalendarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveCalendarMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveCalendarMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveCalendarMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveCalendarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveCalendarMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveCalendarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveCalendarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveCalendarMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveCalendarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveCalendarMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveCalendarMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveCalendarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCalendarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCalendarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveCalendarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveCalendarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveCalendarMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveCalendarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveCalendarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveCalendarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveCalendarMethod "getShowDayNames" o = CalendarGetShowDayNamesMethodInfo
ResolveCalendarMethod "getShowHeading" o = CalendarGetShowHeadingMethodInfo
ResolveCalendarMethod "getShowWeekNumbers" o = CalendarGetShowWeekNumbersMethodInfo
ResolveCalendarMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveCalendarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveCalendarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveCalendarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveCalendarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveCalendarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveCalendarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveCalendarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveCalendarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveCalendarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveCalendarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveCalendarMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveCalendarMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveCalendarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveCalendarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveCalendarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveCalendarMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveCalendarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveCalendarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveCalendarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCalendarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCalendarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveCalendarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveCalendarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveCalendarMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveCalendarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveCalendarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveCalendarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveCalendarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveCalendarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveCalendarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveCalendarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveCalendarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveCalendarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveCalendarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveCalendarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveCalendarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveCalendarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveCalendarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveCalendarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveCalendarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCalendarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveCalendarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveCalendarMethod "setShowDayNames" o = CalendarSetShowDayNamesMethodInfo
ResolveCalendarMethod "setShowHeading" o = CalendarSetShowHeadingMethodInfo
ResolveCalendarMethod "setShowWeekNumbers" o = CalendarSetShowWeekNumbersMethodInfo
ResolveCalendarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveCalendarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveCalendarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveCalendarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveCalendarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveCalendarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveCalendarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveCalendarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveCalendarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCalendarMethod t Calendar, O.OverloadedMethod info Calendar p) => OL.IsLabel t (Calendar -> 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 ~ ResolveCalendarMethod t Calendar, O.OverloadedMethod info Calendar p, R.HasField t Calendar p) => R.HasField t Calendar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCalendarMethod t Calendar, O.OverloadedMethodInfo info Calendar) => OL.IsLabel t (O.MethodProxy info Calendar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CalendarDaySelectedCallback =
IO ()
type C_CalendarDaySelectedCallback =
Ptr Calendar ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarDaySelectedCallback :: C_CalendarDaySelectedCallback -> IO (FunPtr C_CalendarDaySelectedCallback)
wrap_CalendarDaySelectedCallback ::
GObject a => (a -> CalendarDaySelectedCallback) ->
C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback a -> IO ()
gi'cb Ptr Calendar
gi'selfPtr Ptr ()
_ = do
Ptr Calendar -> (Calendar -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Calendar
gi'selfPtr ((Calendar -> IO ()) -> IO ()) -> (Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Calendar
gi'self -> a -> IO ()
gi'cb (Calendar -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Calendar
gi'self)
onCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarDaySelectedCallback) -> m SignalHandlerId
onCalendarDaySelected :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCalendarDaySelected 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarDaySelectedCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"day-selected" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarDaySelectedCallback) -> m SignalHandlerId
afterCalendarDaySelected :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCalendarDaySelected 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarDaySelectedCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"day-selected" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarDaySelectedSignalInfo
instance SignalInfo CalendarDaySelectedSignalInfo where
type HaskellCallbackType CalendarDaySelectedSignalInfo = CalendarDaySelectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarDaySelectedCallback cb
cb'' <- mk_CalendarDaySelectedCallback cb'
connectSignalFunPtr obj "day-selected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar::day-selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:signal:daySelected"})
#endif
type CalendarNextMonthCallback =
IO ()
type C_CalendarNextMonthCallback =
Ptr Calendar ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarNextMonthCallback :: C_CalendarNextMonthCallback -> IO (FunPtr C_CalendarNextMonthCallback)
wrap_CalendarNextMonthCallback ::
GObject a => (a -> CalendarNextMonthCallback) ->
C_CalendarNextMonthCallback
wrap_CalendarNextMonthCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback a -> IO ()
gi'cb Ptr Calendar
gi'selfPtr Ptr ()
_ = do
Ptr Calendar -> (Calendar -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Calendar
gi'selfPtr ((Calendar -> IO ()) -> IO ()) -> (Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Calendar
gi'self -> a -> IO ()
gi'cb (Calendar -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Calendar
gi'self)
onCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarNextMonthCallback) -> m SignalHandlerId
onCalendarNextMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCalendarNextMonth 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextMonthCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-month" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarNextMonthCallback) -> m SignalHandlerId
afterCalendarNextMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCalendarNextMonth 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextMonthCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-month" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarNextMonthSignalInfo
instance SignalInfo CalendarNextMonthSignalInfo where
type HaskellCallbackType CalendarNextMonthSignalInfo = CalendarNextMonthCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarNextMonthCallback cb
cb'' <- mk_CalendarNextMonthCallback cb'
connectSignalFunPtr obj "next-month" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar::next-month"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:signal:nextMonth"})
#endif
type CalendarNextYearCallback =
IO ()
type C_CalendarNextYearCallback =
Ptr Calendar ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarNextYearCallback :: C_CalendarNextYearCallback -> IO (FunPtr C_CalendarNextYearCallback)
wrap_CalendarNextYearCallback ::
GObject a => (a -> CalendarNextYearCallback) ->
C_CalendarNextYearCallback
wrap_CalendarNextYearCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback a -> IO ()
gi'cb Ptr Calendar
gi'selfPtr Ptr ()
_ = do
Ptr Calendar -> (Calendar -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Calendar
gi'selfPtr ((Calendar -> IO ()) -> IO ()) -> (Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Calendar
gi'self -> a -> IO ()
gi'cb (Calendar -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Calendar
gi'self)
onCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarNextYearCallback) -> m SignalHandlerId
onCalendarNextYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCalendarNextYear 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextYearCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-year" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarNextYearCallback) -> m SignalHandlerId
afterCalendarNextYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCalendarNextYear 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextYearCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"next-year" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarNextYearSignalInfo
instance SignalInfo CalendarNextYearSignalInfo where
type HaskellCallbackType CalendarNextYearSignalInfo = CalendarNextYearCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarNextYearCallback cb
cb'' <- mk_CalendarNextYearCallback cb'
connectSignalFunPtr obj "next-year" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar::next-year"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:signal:nextYear"})
#endif
type CalendarPrevMonthCallback =
IO ()
type C_CalendarPrevMonthCallback =
Ptr Calendar ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarPrevMonthCallback :: C_CalendarPrevMonthCallback -> IO (FunPtr C_CalendarPrevMonthCallback)
wrap_CalendarPrevMonthCallback ::
GObject a => (a -> CalendarPrevMonthCallback) ->
C_CalendarPrevMonthCallback
wrap_CalendarPrevMonthCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback a -> IO ()
gi'cb Ptr Calendar
gi'selfPtr Ptr ()
_ = do
Ptr Calendar -> (Calendar -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Calendar
gi'selfPtr ((Calendar -> IO ()) -> IO ()) -> (Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Calendar
gi'self -> a -> IO ()
gi'cb (Calendar -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Calendar
gi'self)
onCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarPrevMonthCallback) -> m SignalHandlerId
onCalendarPrevMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCalendarPrevMonth 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevMonthCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"prev-month" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarPrevMonthCallback) -> m SignalHandlerId
afterCalendarPrevMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCalendarPrevMonth 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevMonthCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"prev-month" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarPrevMonthSignalInfo
instance SignalInfo CalendarPrevMonthSignalInfo where
type HaskellCallbackType CalendarPrevMonthSignalInfo = CalendarPrevMonthCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarPrevMonthCallback cb
cb'' <- mk_CalendarPrevMonthCallback cb'
connectSignalFunPtr obj "prev-month" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar::prev-month"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:signal:prevMonth"})
#endif
type CalendarPrevYearCallback =
IO ()
type C_CalendarPrevYearCallback =
Ptr Calendar ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarPrevYearCallback :: C_CalendarPrevYearCallback -> IO (FunPtr C_CalendarPrevYearCallback)
wrap_CalendarPrevYearCallback ::
GObject a => (a -> CalendarPrevYearCallback) ->
C_CalendarPrevYearCallback
wrap_CalendarPrevYearCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback a -> IO ()
gi'cb Ptr Calendar
gi'selfPtr Ptr ()
_ = do
Ptr Calendar -> (Calendar -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Calendar
gi'selfPtr ((Calendar -> IO ()) -> IO ()) -> (Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Calendar
gi'self -> a -> IO ()
gi'cb (Calendar -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Calendar
gi'self)
onCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarPrevYearCallback) -> m SignalHandlerId
onCalendarPrevYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onCalendarPrevYear 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevYearCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"prev-year" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> ((?self :: a) => CalendarPrevYearCallback) -> m SignalHandlerId
afterCalendarPrevYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterCalendarPrevYear 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_CalendarDaySelectedCallback
wrapped' = (a -> IO ()) -> C_CalendarDaySelectedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback a -> IO ()
wrapped
FunPtr C_CalendarDaySelectedCallback
wrapped'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevYearCallback C_CalendarDaySelectedCallback
wrapped'
a
-> Text
-> FunPtr C_CalendarDaySelectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"prev-year" FunPtr C_CalendarDaySelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarPrevYearSignalInfo
instance SignalInfo CalendarPrevYearSignalInfo where
type HaskellCallbackType CalendarPrevYearSignalInfo = CalendarPrevYearCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarPrevYearCallback cb
cb'' <- mk_CalendarPrevYearCallback cb'
connectSignalFunPtr obj "prev-year" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar::prev-year"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:signal:prevYear"})
#endif
getCalendarDay :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarDay :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarDay o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"day"
setCalendarDay :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarDay :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Int32 -> m ()
setCalendarDay o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"day" Int32
val
constructCalendarDay :: (IsCalendar o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCalendarDay :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCalendarDay Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"day" Int32
val
#if defined(ENABLE_OVERLOADING)
data CalendarDayPropertyInfo
instance AttrInfo CalendarDayPropertyInfo where
type AttrAllowedOps CalendarDayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarDayPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarDayPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CalendarDayPropertyInfo = (~) Int32
type AttrTransferType CalendarDayPropertyInfo = Int32
type AttrGetType CalendarDayPropertyInfo = Int32
type AttrLabel CalendarDayPropertyInfo = "day"
type AttrOrigin CalendarDayPropertyInfo = Calendar
attrGet = getCalendarDay
attrSet = setCalendarDay
attrTransfer _ v = do
return v
attrConstruct = constructCalendarDay
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.day"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:day"
})
#endif
getCalendarMonth :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarMonth :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarMonth o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"month"
setCalendarMonth :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarMonth :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Int32 -> m ()
setCalendarMonth o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"month" Int32
val
constructCalendarMonth :: (IsCalendar o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCalendarMonth :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCalendarMonth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"month" Int32
val
#if defined(ENABLE_OVERLOADING)
data CalendarMonthPropertyInfo
instance AttrInfo CalendarMonthPropertyInfo where
type AttrAllowedOps CalendarMonthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarMonthPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarMonthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CalendarMonthPropertyInfo = (~) Int32
type AttrTransferType CalendarMonthPropertyInfo = Int32
type AttrGetType CalendarMonthPropertyInfo = Int32
type AttrLabel CalendarMonthPropertyInfo = "month"
type AttrOrigin CalendarMonthPropertyInfo = Calendar
attrGet = getCalendarMonth
attrSet = setCalendarMonth
attrTransfer _ v = do
return v
attrConstruct = constructCalendarMonth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.month"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:month"
})
#endif
getCalendarShowDayNames :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowDayNames :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowDayNames o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-day-names"
setCalendarShowDayNames :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowDayNames :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Bool -> m ()
setCalendarShowDayNames o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-day-names" Bool
val
constructCalendarShowDayNames :: (IsCalendar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCalendarShowDayNames :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCalendarShowDayNames Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-day-names" Bool
val
#if defined(ENABLE_OVERLOADING)
data CalendarShowDayNamesPropertyInfo
instance AttrInfo CalendarShowDayNamesPropertyInfo where
type AttrAllowedOps CalendarShowDayNamesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarShowDayNamesPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarShowDayNamesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CalendarShowDayNamesPropertyInfo = (~) Bool
type AttrTransferType CalendarShowDayNamesPropertyInfo = Bool
type AttrGetType CalendarShowDayNamesPropertyInfo = Bool
type AttrLabel CalendarShowDayNamesPropertyInfo = "show-day-names"
type AttrOrigin CalendarShowDayNamesPropertyInfo = Calendar
attrGet = getCalendarShowDayNames
attrSet = setCalendarShowDayNames
attrTransfer _ v = do
return v
attrConstruct = constructCalendarShowDayNames
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.showDayNames"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:showDayNames"
})
#endif
getCalendarShowHeading :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowHeading :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowHeading o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-heading"
setCalendarShowHeading :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowHeading :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Bool -> m ()
setCalendarShowHeading o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-heading" Bool
val
constructCalendarShowHeading :: (IsCalendar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCalendarShowHeading :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCalendarShowHeading Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-heading" Bool
val
#if defined(ENABLE_OVERLOADING)
data CalendarShowHeadingPropertyInfo
instance AttrInfo CalendarShowHeadingPropertyInfo where
type AttrAllowedOps CalendarShowHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarShowHeadingPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarShowHeadingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CalendarShowHeadingPropertyInfo = (~) Bool
type AttrTransferType CalendarShowHeadingPropertyInfo = Bool
type AttrGetType CalendarShowHeadingPropertyInfo = Bool
type AttrLabel CalendarShowHeadingPropertyInfo = "show-heading"
type AttrOrigin CalendarShowHeadingPropertyInfo = Calendar
attrGet = getCalendarShowHeading
attrSet = setCalendarShowHeading
attrTransfer _ v = do
return v
attrConstruct = constructCalendarShowHeading
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.showHeading"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:showHeading"
})
#endif
getCalendarShowWeekNumbers :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowWeekNumbers :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowWeekNumbers o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-week-numbers"
setCalendarShowWeekNumbers :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowWeekNumbers :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Bool -> m ()
setCalendarShowWeekNumbers o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-week-numbers" Bool
val
constructCalendarShowWeekNumbers :: (IsCalendar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCalendarShowWeekNumbers :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCalendarShowWeekNumbers Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-week-numbers" Bool
val
#if defined(ENABLE_OVERLOADING)
data CalendarShowWeekNumbersPropertyInfo
instance AttrInfo CalendarShowWeekNumbersPropertyInfo where
type AttrAllowedOps CalendarShowWeekNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarShowWeekNumbersPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarShowWeekNumbersPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CalendarShowWeekNumbersPropertyInfo = (~) Bool
type AttrTransferType CalendarShowWeekNumbersPropertyInfo = Bool
type AttrGetType CalendarShowWeekNumbersPropertyInfo = Bool
type AttrLabel CalendarShowWeekNumbersPropertyInfo = "show-week-numbers"
type AttrOrigin CalendarShowWeekNumbersPropertyInfo = Calendar
attrGet = getCalendarShowWeekNumbers
attrSet = setCalendarShowWeekNumbers
attrTransfer _ v = do
return v
attrConstruct = constructCalendarShowWeekNumbers
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.showWeekNumbers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:showWeekNumbers"
})
#endif
getCalendarYear :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarYear :: forall (m :: * -> *) o. (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarYear o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"year"
setCalendarYear :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarYear :: forall (m :: * -> *) o.
(MonadIO m, IsCalendar o) =>
o -> Int32 -> m ()
setCalendarYear o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"year" Int32
val
constructCalendarYear :: (IsCalendar o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCalendarYear :: forall o (m :: * -> *).
(IsCalendar o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCalendarYear Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"year" Int32
val
#if defined(ENABLE_OVERLOADING)
data CalendarYearPropertyInfo
instance AttrInfo CalendarYearPropertyInfo where
type AttrAllowedOps CalendarYearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarYearPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarYearPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CalendarYearPropertyInfo = (~) Int32
type AttrTransferType CalendarYearPropertyInfo = Int32
type AttrGetType CalendarYearPropertyInfo = Int32
type AttrLabel CalendarYearPropertyInfo = "year"
type AttrOrigin CalendarYearPropertyInfo = Calendar
attrGet = getCalendarYear
attrSet = setCalendarYear
attrTransfer _ v = do
return v
attrConstruct = constructCalendarYear
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.year"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#g:attr:year"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Calendar
type instance O.AttributeList Calendar = CalendarAttributeList
type CalendarAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("day", CalendarDayPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("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), '("year", CalendarYearPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
calendarDay :: AttrLabelProxy "day"
calendarDay = AttrLabelProxy
calendarMonth :: AttrLabelProxy "month"
calendarMonth = AttrLabelProxy
calendarShowDayNames :: AttrLabelProxy "showDayNames"
calendarShowDayNames = AttrLabelProxy
calendarShowHeading :: AttrLabelProxy "showHeading"
calendarShowHeading = AttrLabelProxy
calendarShowWeekNumbers :: AttrLabelProxy "showWeekNumbers"
calendarShowWeekNumbers = AttrLabelProxy
calendarYear :: AttrLabelProxy "year"
calendarYear = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Calendar = CalendarSignalList
type CalendarSignalList = ('[ '("daySelected", CalendarDaySelectedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("nextMonth", CalendarNextMonthSignalInfo), '("nextYear", CalendarNextYearSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("prevMonth", CalendarPrevMonthSignalInfo), '("prevYear", CalendarPrevYearSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_calendar_new" gtk_calendar_new ::
IO (Ptr Calendar)
calendarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Calendar
calendarNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Calendar
calendarNew = IO Calendar -> m Calendar
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Calendar -> m Calendar) -> IO Calendar -> m Calendar
forall a b. (a -> b) -> a -> b
$ do
Ptr Calendar
result <- IO (Ptr Calendar)
gtk_calendar_new
Text -> Ptr Calendar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"calendarNew" Ptr Calendar
result
Calendar
result' <- ((ManagedPtr Calendar -> Calendar) -> Ptr Calendar -> IO Calendar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Calendar -> Calendar
Calendar) Ptr Calendar
result
Calendar -> IO Calendar
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Calendar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_calendar_clear_marks" gtk_calendar_clear_marks ::
Ptr Calendar ->
IO ()
calendarClearMarks ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m ()
calendarClearMarks :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m ()
calendarClearMarks a
calendar = 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 Calendar
calendar' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
calendar
Ptr Calendar -> IO ()
gtk_calendar_clear_marks Ptr Calendar
calendar'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
calendar
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarClearMarksMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarClearMarksMethodInfo a signature where
overloadedMethod = calendarClearMarks
instance O.OverloadedMethodInfo CalendarClearMarksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarClearMarks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarClearMarks"
})
#endif
foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date ::
Ptr Calendar ->
IO (Ptr GLib.DateTime.DateTime)
calendarGetDate ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m GLib.DateTime.DateTime
calendarGetDate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m DateTime
calendarGetDate a
self = IO DateTime -> m DateTime
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DateTime -> m DateTime) -> IO DateTime -> m DateTime
forall a b. (a -> b) -> a -> b
$ do
Ptr Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DateTime
result <- Ptr Calendar -> IO (Ptr DateTime)
gtk_calendar_get_date Ptr Calendar
self'
Text -> Ptr DateTime -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"calendarGetDate" Ptr DateTime
result
DateTime
result' <- ((ManagedPtr DateTime -> DateTime) -> Ptr DateTime -> IO DateTime
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr DateTime -> DateTime
GLib.DateTime.DateTime) Ptr DateTime
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DateTime -> IO DateTime
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DateTime
result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetDateMethodInfo
instance (signature ~ (m GLib.DateTime.DateTime), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetDateMethodInfo a signature where
overloadedMethod = calendarGetDate
instance O.OverloadedMethodInfo CalendarGetDateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetDate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDate"
})
#endif
foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked ::
Ptr Calendar ->
Word32 ->
IO CInt
calendarGetDayIsMarked ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m Bool
calendarGetDayIsMarked :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m Bool
calendarGetDayIsMarked a
calendar Word32
day = 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 Calendar
calendar' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
calendar
CInt
result <- Ptr Calendar -> Word32 -> IO CInt
gtk_calendar_get_day_is_marked Ptr Calendar
calendar' Word32
day
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
calendar
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetDayIsMarkedMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetDayIsMarkedMethodInfo a signature where
overloadedMethod = calendarGetDayIsMarked
instance O.OverloadedMethodInfo CalendarGetDayIsMarkedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetDayIsMarked",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDayIsMarked"
})
#endif
foreign import ccall "gtk_calendar_get_show_day_names" gtk_calendar_get_show_day_names ::
Ptr Calendar ->
IO CInt
calendarGetShowDayNames ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Bool
calendarGetShowDayNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Bool
calendarGetShowDayNames a
self = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Calendar -> IO CInt
gtk_calendar_get_show_day_names Ptr Calendar
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetShowDayNamesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetShowDayNamesMethodInfo a signature where
overloadedMethod = calendarGetShowDayNames
instance O.OverloadedMethodInfo CalendarGetShowDayNamesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetShowDayNames",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetShowDayNames"
})
#endif
foreign import ccall "gtk_calendar_get_show_heading" gtk_calendar_get_show_heading ::
Ptr Calendar ->
IO CInt
calendarGetShowHeading ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Bool
calendarGetShowHeading :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Bool
calendarGetShowHeading a
self = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Calendar -> IO CInt
gtk_calendar_get_show_heading Ptr Calendar
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetShowHeadingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetShowHeadingMethodInfo a signature where
overloadedMethod = calendarGetShowHeading
instance O.OverloadedMethodInfo CalendarGetShowHeadingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetShowHeading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetShowHeading"
})
#endif
foreign import ccall "gtk_calendar_get_show_week_numbers" gtk_calendar_get_show_week_numbers ::
Ptr Calendar ->
IO CInt
calendarGetShowWeekNumbers ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Bool
calendarGetShowWeekNumbers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Bool
calendarGetShowWeekNumbers a
self = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Calendar -> IO CInt
gtk_calendar_get_show_week_numbers Ptr Calendar
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetShowWeekNumbersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetShowWeekNumbersMethodInfo a signature where
overloadedMethod = calendarGetShowWeekNumbers
instance O.OverloadedMethodInfo CalendarGetShowWeekNumbersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetShowWeekNumbers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetShowWeekNumbers"
})
#endif
foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarMarkDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m ()
calendarMarkDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m ()
calendarMarkDay a
calendar Word32
day = 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 Calendar
calendar' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
calendar
Ptr Calendar -> Word32 -> IO ()
gtk_calendar_mark_day Ptr Calendar
calendar' Word32
day
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
calendar
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarMarkDayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarMarkDayMethodInfo a signature where
overloadedMethod = calendarMarkDay
instance O.OverloadedMethodInfo CalendarMarkDayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarMarkDay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarMarkDay"
})
#endif
foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day ::
Ptr Calendar ->
Ptr GLib.DateTime.DateTime ->
IO ()
calendarSelectDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> GLib.DateTime.DateTime
-> m ()
calendarSelectDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> DateTime -> m ()
calendarSelectDay a
self DateTime
date = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DateTime
date' <- DateTime -> IO (Ptr DateTime)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DateTime
date
Ptr Calendar -> Ptr DateTime -> IO ()
gtk_calendar_select_day Ptr Calendar
self' Ptr DateTime
date'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DateTime -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr DateTime
date
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSelectDayMethodInfo
instance (signature ~ (GLib.DateTime.DateTime -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSelectDayMethodInfo a signature where
overloadedMethod = calendarSelectDay
instance O.OverloadedMethodInfo CalendarSelectDayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSelectDay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarSelectDay"
})
#endif
foreign import ccall "gtk_calendar_set_show_day_names" gtk_calendar_set_show_day_names ::
Ptr Calendar ->
CInt ->
IO ()
calendarSetShowDayNames ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Bool
-> m ()
calendarSetShowDayNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Bool -> m ()
calendarSetShowDayNames a
self Bool
value = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr Calendar -> CInt -> IO ()
gtk_calendar_set_show_day_names Ptr Calendar
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetShowDayNamesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetShowDayNamesMethodInfo a signature where
overloadedMethod = calendarSetShowDayNames
instance O.OverloadedMethodInfo CalendarSetShowDayNamesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetShowDayNames",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetShowDayNames"
})
#endif
foreign import ccall "gtk_calendar_set_show_heading" gtk_calendar_set_show_heading ::
Ptr Calendar ->
CInt ->
IO ()
calendarSetShowHeading ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Bool
-> m ()
calendarSetShowHeading :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Bool -> m ()
calendarSetShowHeading a
self Bool
value = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr Calendar -> CInt -> IO ()
gtk_calendar_set_show_heading Ptr Calendar
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetShowHeadingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetShowHeadingMethodInfo a signature where
overloadedMethod = calendarSetShowHeading
instance O.OverloadedMethodInfo CalendarSetShowHeadingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetShowHeading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetShowHeading"
})
#endif
foreign import ccall "gtk_calendar_set_show_week_numbers" gtk_calendar_set_show_week_numbers ::
Ptr Calendar ->
CInt ->
IO ()
calendarSetShowWeekNumbers ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Bool
-> m ()
calendarSetShowWeekNumbers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Bool -> m ()
calendarSetShowWeekNumbers a
self Bool
value = 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 Calendar
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr Calendar -> CInt -> IO ()
gtk_calendar_set_show_week_numbers Ptr Calendar
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetShowWeekNumbersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetShowWeekNumbersMethodInfo a signature where
overloadedMethod = calendarSetShowWeekNumbers
instance O.OverloadedMethodInfo CalendarSetShowWeekNumbersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetShowWeekNumbers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetShowWeekNumbers"
})
#endif
foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarUnmarkDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m ()
calendarUnmarkDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m ()
calendarUnmarkDay a
calendar Word32
day = 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 Calendar
calendar' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
calendar
Ptr Calendar -> Word32 -> IO ()
gtk_calendar_unmark_day Ptr Calendar
calendar' Word32
day
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
calendar
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarUnmarkDayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarUnmarkDayMethodInfo a signature where
overloadedMethod = calendarUnmarkDay
instance O.OverloadedMethodInfo CalendarUnmarkDayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarUnmarkDay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Calendar.html#v:calendarUnmarkDay"
})
#endif