{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Calendar
(
Calendar(..) ,
IsCalendar ,
toCalendar ,
#if defined(ENABLE_OVERLOADING)
ResolveCalendarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CalendarClearMarksMethodInfo ,
#endif
calendarClearMarks ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDateMethodInfo ,
#endif
calendarGetDate ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDayIsMarkedMethodInfo ,
#endif
calendarGetDayIsMarked ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowDayNamesMethodInfo ,
#endif
calendarGetShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowHeadingMethodInfo ,
#endif
calendarGetShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarGetShowWeekNumbersMethodInfo ,
#endif
calendarGetShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarMarkDayMethodInfo ,
#endif
calendarMarkDay ,
calendarNew ,
#if defined(ENABLE_OVERLOADING)
CalendarSelectDayMethodInfo ,
#endif
calendarSelectDay ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowDayNamesMethodInfo ,
#endif
calendarSetShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowHeadingMethodInfo ,
#endif
calendarSetShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarSetShowWeekNumbersMethodInfo ,
#endif
calendarSetShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarUnmarkDayMethodInfo ,
#endif
calendarUnmarkDay ,
#if defined(ENABLE_OVERLOADING)
CalendarDayPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarDay ,
#endif
constructCalendarDay ,
getCalendarDay ,
setCalendarDay ,
#if defined(ENABLE_OVERLOADING)
CalendarMonthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarMonth ,
#endif
constructCalendarMonth ,
getCalendarMonth ,
setCalendarMonth ,
#if defined(ENABLE_OVERLOADING)
CalendarShowDayNamesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowDayNames ,
#endif
constructCalendarShowDayNames ,
getCalendarShowDayNames ,
setCalendarShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarShowHeadingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowHeading ,
#endif
constructCalendarShowHeading ,
getCalendarShowHeading ,
setCalendarShowHeading ,
#if defined(ENABLE_OVERLOADING)
CalendarShowWeekNumbersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowWeekNumbers ,
#endif
constructCalendarShowWeekNumbers ,
getCalendarShowWeekNumbers ,
setCalendarShowWeekNumbers ,
#if defined(ENABLE_OVERLOADING)
CalendarYearPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarYear ,
#endif
constructCalendarYear ,
getCalendarYear ,
setCalendarYear ,
C_CalendarDaySelectedCallback ,
CalendarDaySelectedCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarDaySelectedSignalInfo ,
#endif
afterCalendarDaySelected ,
genClosure_CalendarDaySelected ,
mk_CalendarDaySelectedCallback ,
noCalendarDaySelectedCallback ,
onCalendarDaySelected ,
wrap_CalendarDaySelectedCallback ,
C_CalendarNextMonthCallback ,
CalendarNextMonthCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarNextMonthSignalInfo ,
#endif
afterCalendarNextMonth ,
genClosure_CalendarNextMonth ,
mk_CalendarNextMonthCallback ,
noCalendarNextMonthCallback ,
onCalendarNextMonth ,
wrap_CalendarNextMonthCallback ,
C_CalendarNextYearCallback ,
CalendarNextYearCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarNextYearSignalInfo ,
#endif
afterCalendarNextYear ,
genClosure_CalendarNextYear ,
mk_CalendarNextYearCallback ,
noCalendarNextYearCallback ,
onCalendarNextYear ,
wrap_CalendarNextYearCallback ,
C_CalendarPrevMonthCallback ,
CalendarPrevMonthCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarPrevMonthSignalInfo ,
#endif
afterCalendarPrevMonth ,
genClosure_CalendarPrevMonth ,
mk_CalendarPrevMonthCallback ,
noCalendarPrevMonthCallback ,
onCalendarPrevMonth ,
wrap_CalendarPrevMonthCallback ,
C_CalendarPrevYearCallback ,
CalendarPrevYearCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarPrevYearSignalInfo ,
#endif
afterCalendarPrevYear ,
genClosure_CalendarPrevYear ,
mk_CalendarPrevYearCallback ,
noCalendarPrevYearCallback ,
onCalendarPrevYear ,
wrap_CalendarPrevYearCallback ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Calendar = Calendar (SP.ManagedPtr Calendar)
deriving (Calendar -> Calendar -> Bool
(Calendar -> Calendar -> Bool)
-> (Calendar -> Calendar -> Bool) -> Eq Calendar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Calendar -> Calendar -> Bool
$c/= :: Calendar -> Calendar -> Bool
== :: Calendar -> Calendar -> Bool
$c== :: 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 (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 (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 :: *) :: * where
ResolveCalendarMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveCalendarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveCalendarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveCalendarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveCalendarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveCalendarMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveCalendarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveCalendarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveCalendarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveCalendarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCalendarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCalendarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveCalendarMethod "clearMarks" o = CalendarClearMarksMethodInfo
ResolveCalendarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveCalendarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveCalendarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveCalendarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveCalendarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveCalendarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveCalendarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveCalendarMethod "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 "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveCalendarMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveCalendarMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveCalendarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
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 "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 "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveCalendarMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveCalendarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveCalendarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCalendarMethod "getDate" o = CalendarGetDateMethodInfo
ResolveCalendarMethod "getDayIsMarked" o = CalendarGetDayIsMarkedMethodInfo
ResolveCalendarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveCalendarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveCalendarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveCalendarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveCalendarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveCalendarMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveCalendarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveCalendarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveCalendarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveCalendarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveCalendarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveCalendarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveCalendarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveCalendarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveCalendarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveCalendarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveCalendarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveCalendarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveCalendarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveCalendarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveCalendarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveCalendarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveCalendarMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveCalendarMethod "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 "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 "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveCalendarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveCalendarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveCalendarMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveCalendarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveCalendarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveCalendarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCalendarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCalendarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveCalendarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveCalendarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveCalendarMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveCalendarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveCalendarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveCalendarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveCalendarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveCalendarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveCalendarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveCalendarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveCalendarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveCalendarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveCalendarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveCalendarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveCalendarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveCalendarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveCalendarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveCalendarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveCalendarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCalendarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveCalendarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveCalendarMethod "setShowDayNames" o = CalendarSetShowDayNamesMethodInfo
ResolveCalendarMethod "setShowHeading" o = CalendarSetShowHeadingMethodInfo
ResolveCalendarMethod "setShowWeekNumbers" o = CalendarSetShowWeekNumbersMethodInfo
ResolveCalendarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveCalendarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveCalendarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveCalendarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveCalendarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveCalendarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveCalendarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveCalendarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveCalendarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCalendarMethod t Calendar, O.OverloadedMethod info Calendar p) => OL.IsLabel t (Calendar -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveCalendarMethod t Calendar, O.OverloadedMethod info Calendar p, R.HasField t Calendar p) => R.HasField t Calendar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCalendarMethod t Calendar, O.OverloadedMethodInfo info Calendar) => OL.IsLabel t (O.MethodProxy info Calendar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CalendarDaySelectedCallback =
IO ()
noCalendarDaySelectedCallback :: Maybe CalendarDaySelectedCallback
noCalendarDaySelectedCallback :: Maybe (IO ())
noCalendarDaySelectedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CalendarDaySelectedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarDaySelectedCallback :: C_CalendarDaySelectedCallback -> IO (FunPtr C_CalendarDaySelectedCallback)
genClosure_CalendarDaySelected :: MonadIO m => CalendarDaySelectedCallback -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarDaySelected :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarDaySelected IO ()
cb = IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback IO ()
cb
C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarDaySelectedCallback C_CalendarDaySelectedCallback
cb' IO (FunPtr C_CalendarDaySelectedCallback)
-> (FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarDaySelectedCallback ::
CalendarDaySelectedCallback ->
C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback :: IO () -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
onCalendarDaySelected :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCalendarDaySelected a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarDaySelectedCallback C_CalendarDaySelectedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
afterCalendarDaySelected :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCalendarDaySelected a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarDaySelectedCallback C_CalendarDaySelectedCallback
cb'
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
cb'' 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
#endif
type CalendarNextMonthCallback =
IO ()
noCalendarNextMonthCallback :: Maybe CalendarNextMonthCallback
noCalendarNextMonthCallback :: Maybe (IO ())
noCalendarNextMonthCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CalendarNextMonthCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarNextMonthCallback :: C_CalendarNextMonthCallback -> IO (FunPtr C_CalendarNextMonthCallback)
genClosure_CalendarNextMonth :: MonadIO m => CalendarNextMonthCallback -> m (GClosure C_CalendarNextMonthCallback)
genClosure_CalendarNextMonth :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarNextMonth IO ()
cb = IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback IO ()
cb
C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextMonthCallback C_CalendarDaySelectedCallback
cb' IO (FunPtr C_CalendarDaySelectedCallback)
-> (FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarNextMonthCallback ::
CalendarNextMonthCallback ->
C_CalendarNextMonthCallback
wrap_CalendarNextMonthCallback :: IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
onCalendarNextMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCalendarNextMonth a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextMonthCallback C_CalendarDaySelectedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
afterCalendarNextMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCalendarNextMonth a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextMonthCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextMonthCallback C_CalendarDaySelectedCallback
cb'
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
cb'' 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
#endif
type CalendarNextYearCallback =
IO ()
noCalendarNextYearCallback :: Maybe CalendarNextYearCallback
noCalendarNextYearCallback :: Maybe (IO ())
noCalendarNextYearCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CalendarNextYearCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarNextYearCallback :: C_CalendarNextYearCallback -> IO (FunPtr C_CalendarNextYearCallback)
genClosure_CalendarNextYear :: MonadIO m => CalendarNextYearCallback -> m (GClosure C_CalendarNextYearCallback)
genClosure_CalendarNextYear :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarNextYear IO ()
cb = IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback IO ()
cb
C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextYearCallback C_CalendarDaySelectedCallback
cb' IO (FunPtr C_CalendarDaySelectedCallback)
-> (FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarNextYearCallback ::
CalendarNextYearCallback ->
C_CalendarNextYearCallback
wrap_CalendarNextYearCallback :: IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
onCalendarNextYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCalendarNextYear a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextYearCallback C_CalendarDaySelectedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
afterCalendarNextYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCalendarNextYear a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarNextYearCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarNextYearCallback C_CalendarDaySelectedCallback
cb'
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
cb'' 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
#endif
type CalendarPrevMonthCallback =
IO ()
noCalendarPrevMonthCallback :: Maybe CalendarPrevMonthCallback
noCalendarPrevMonthCallback :: Maybe (IO ())
noCalendarPrevMonthCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CalendarPrevMonthCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarPrevMonthCallback :: C_CalendarPrevMonthCallback -> IO (FunPtr C_CalendarPrevMonthCallback)
genClosure_CalendarPrevMonth :: MonadIO m => CalendarPrevMonthCallback -> m (GClosure C_CalendarPrevMonthCallback)
genClosure_CalendarPrevMonth :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarPrevMonth IO ()
cb = IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback IO ()
cb
C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevMonthCallback C_CalendarDaySelectedCallback
cb' IO (FunPtr C_CalendarDaySelectedCallback)
-> (FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarPrevMonthCallback ::
CalendarPrevMonthCallback ->
C_CalendarPrevMonthCallback
wrap_CalendarPrevMonthCallback :: IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
onCalendarPrevMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCalendarPrevMonth a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevMonthCallback C_CalendarDaySelectedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
afterCalendarPrevMonth :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCalendarPrevMonth a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevMonthCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevMonthCallback C_CalendarDaySelectedCallback
cb'
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
cb'' 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
#endif
type CalendarPrevYearCallback =
IO ()
noCalendarPrevYearCallback :: Maybe CalendarPrevYearCallback
noCalendarPrevYearCallback :: Maybe (IO ())
noCalendarPrevYearCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CalendarPrevYearCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarPrevYearCallback :: C_CalendarPrevYearCallback -> IO (FunPtr C_CalendarPrevYearCallback)
genClosure_CalendarPrevYear :: MonadIO m => CalendarPrevYearCallback -> m (GClosure C_CalendarPrevYearCallback)
genClosure_CalendarPrevYear :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CalendarDaySelectedCallback)
genClosure_CalendarPrevYear IO ()
cb = IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
-> m (GClosure C_CalendarDaySelectedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback IO ()
cb
C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevYearCallback C_CalendarDaySelectedCallback
cb' IO (FunPtr C_CalendarDaySelectedCallback)
-> (FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback))
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CalendarDaySelectedCallback
-> IO (GClosure C_CalendarDaySelectedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CalendarPrevYearCallback ::
CalendarPrevYearCallback ->
C_CalendarPrevYearCallback
wrap_CalendarPrevYearCallback :: IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
onCalendarPrevYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCalendarPrevYear a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevYearCallback C_CalendarDaySelectedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
afterCalendarPrevYear :: forall a (m :: * -> *).
(IsCalendar a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCalendarPrevYear a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_CalendarDaySelectedCallback
cb' = IO () -> C_CalendarDaySelectedCallback
wrap_CalendarPrevYearCallback IO ()
cb
FunPtr C_CalendarDaySelectedCallback
cb'' <- C_CalendarDaySelectedCallback
-> IO (FunPtr C_CalendarDaySelectedCallback)
mk_CalendarPrevYearCallback C_CalendarDaySelectedCallback
cb'
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
cb'' 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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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, *)])
#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, *)])
#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 (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 (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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarClearMarks",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarGetDate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDate"
}
#endif
foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked ::
Ptr Calendar ->
Word32 ->
IO CInt
calendarGetDayIsMarked ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m Bool
calendarGetDayIsMarked :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m Bool
calendarGetDayIsMarked a
calendar Word32
day = IO Bool -> m Bool
forall (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarGetDayIsMarked",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetDayIsMarked"
}
#endif
foreign import ccall "gtk_calendar_get_show_day_names" gtk_calendar_get_show_day_names ::
Ptr Calendar ->
IO CInt
calendarGetShowDayNames ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Bool
calendarGetShowDayNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> m Bool
calendarGetShowDayNames a
self = IO Bool -> m Bool
forall (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarGetShowDayNames",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarGetShowHeading",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarGetShowWeekNumbers",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarGetShowWeekNumbers"
}
#endif
foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarMarkDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m ()
calendarMarkDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m ()
calendarMarkDay a
calendar Word32
day = IO () -> m ()
forall (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarMarkDay",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarSelectDay",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarSelectDay"
}
#endif
foreign import ccall "gtk_calendar_set_show_day_names" gtk_calendar_set_show_day_names ::
Ptr Calendar ->
CInt ->
IO ()
calendarSetShowDayNames ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Bool
-> m ()
calendarSetShowDayNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Bool -> m ()
calendarSetShowDayNames a
self Bool
value = IO () -> m ()
forall (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
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
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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarSetShowDayNames",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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
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
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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarSetShowHeading",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/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 (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
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
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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarSetShowWeekNumbers",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarSetShowWeekNumbers"
}
#endif
foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarUnmarkDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m ()
calendarUnmarkDay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCalendar a) =>
a -> Word32 -> m ()
calendarUnmarkDay a
calendar Word32
day = IO () -> m ()
forall (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Calendar.calendarUnmarkDay",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-Calendar.html#v:calendarUnmarkDay"
}
#endif