{-# 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)
CalendarGetDayMethodInfo ,
#endif
calendarGetDay ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDayIsMarkedMethodInfo ,
#endif
calendarGetDayIsMarked ,
#if defined(ENABLE_OVERLOADING)
CalendarGetMonthMethodInfo ,
#endif
calendarGetMonth ,
#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)
CalendarGetYearMethodInfo ,
#endif
calendarGetYear ,
#if defined(ENABLE_OVERLOADING)
CalendarMarkDayMethodInfo ,
#endif
calendarMarkDay ,
calendarNew ,
#if defined(ENABLE_OVERLOADING)
CalendarSelectDayMethodInfo ,
#endif
calendarSelectDay ,
#if defined(ENABLE_OVERLOADING)
CalendarSetDayMethodInfo ,
#endif
calendarSetDay ,
#if defined(ENABLE_OVERLOADING)
CalendarSetMonthMethodInfo ,
#endif
calendarSetMonth ,
#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)
CalendarSetYearMethodInfo ,
#endif
calendarSetYear ,
#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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
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.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
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
#endif
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 "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
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 "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
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 "getDay" o = CalendarGetDayMethodInfo
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 "getMonth" o = CalendarGetMonthMethodInfo
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 "getYear" o = CalendarGetYearMethodInfo
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 "setDay" o = CalendarSetDayMethodInfo
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 "setMonth" o = CalendarSetMonthMethodInfo
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 "setYear" o = CalendarSetYearMethodInfo
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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDate"
})
#endif
foreign import ccall "gtk_calendar_get_day" gtk_calendar_get_day ::
Ptr Calendar ->
IO Int32
calendarGetDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Int32
calendarGetDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Int32
calendarGetDay a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
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
Int32
result <- Ptr Calendar -> IO Int32
gtk_calendar_get_day Ptr Calendar
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CalendarGetDayMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetDayMethodInfo a signature where
overloadedMethod = calendarGetDay
instance O.OverloadedMethodInfo CalendarGetDayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetDay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDay"
})
#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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDayIsMarked"
})
#endif
foreign import ccall "gtk_calendar_get_month" gtk_calendar_get_month ::
Ptr Calendar ->
IO Int32
calendarGetMonth ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Int32
calendarGetMonth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Int32
calendarGetMonth a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
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
Int32
result <- Ptr Calendar -> IO Int32
gtk_calendar_get_month Ptr Calendar
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CalendarGetMonthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetMonthMethodInfo a signature where
overloadedMethod = calendarGetMonth
instance O.OverloadedMethodInfo CalendarGetMonthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetMonth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetMonth"
})
#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.9/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.9/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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetShowWeekNumbers"
})
#endif
foreign import ccall "gtk_calendar_get_year" gtk_calendar_get_year ::
Ptr Calendar ->
IO Int32
calendarGetYear ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Int32
calendarGetYear :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Int32
calendarGetYear a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
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
Int32
result <- Ptr Calendar -> IO Int32
gtk_calendar_get_year Ptr Calendar
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CalendarGetYearMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarGetYearMethodInfo a signature where
overloadedMethod = calendarGetYear
instance O.OverloadedMethodInfo CalendarGetYearMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarGetYear",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetYear"
})
#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.9/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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarSelectDay"
})
#endif
foreign import ccall "gtk_calendar_set_day" gtk_calendar_set_day ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Int32
-> m ()
calendarSetDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Int32 -> m ()
calendarSetDay a
self Int32
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
self' <- a -> IO (Ptr Calendar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Calendar -> Int32 -> IO ()
gtk_calendar_set_day Ptr Calendar
self' Int32
day
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 CalendarSetDayMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetDayMethodInfo a signature where
overloadedMethod = calendarSetDay
instance O.OverloadedMethodInfo CalendarSetDayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetDay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetDay"
})
#endif
foreign import ccall "gtk_calendar_set_month" gtk_calendar_set_month ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetMonth ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Int32
-> m ()
calendarSetMonth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Int32 -> m ()
calendarSetMonth a
self Int32
month = 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 Calendar -> Int32 -> IO ()
gtk_calendar_set_month Ptr Calendar
self' Int32
month
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 CalendarSetMonthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetMonthMethodInfo a signature where
overloadedMethod = calendarSetMonth
instance O.OverloadedMethodInfo CalendarSetMonthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetMonth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetMonth"
})
#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.9/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.9/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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetShowWeekNumbers"
})
#endif
foreign import ccall "gtk_calendar_set_year" gtk_calendar_set_year ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetYear ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Int32
-> m ()
calendarSetYear :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Int32 -> m ()
calendarSetYear a
self Int32
year = 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 Calendar -> Int32 -> IO ()
gtk_calendar_set_year Ptr Calendar
self' Int32
year
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 CalendarSetYearMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCalendar a) => O.OverloadedMethod CalendarSetYearMethodInfo a signature where
overloadedMethod = calendarSetYear
instance O.OverloadedMethodInfo CalendarSetYearMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Calendar.calendarSetYear",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetYear"
})
#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.9/docs/GI-Gtk-Objects-Calendar.html#v:calendarUnmarkDay"
})
#endif