{-# 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 ,
noCalendar ,
#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)
CalendarGetDetailHeightRowsMethodInfo ,
#endif
calendarGetDetailHeightRows ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDetailWidthCharsMethodInfo ,
#endif
calendarGetDetailWidthChars ,
#if defined(ENABLE_OVERLOADING)
CalendarGetDisplayOptionsMethodInfo ,
#endif
calendarGetDisplayOptions ,
#if defined(ENABLE_OVERLOADING)
CalendarMarkDayMethodInfo ,
#endif
calendarMarkDay ,
calendarNew ,
#if defined(ENABLE_OVERLOADING)
CalendarSelectDayMethodInfo ,
#endif
calendarSelectDay ,
#if defined(ENABLE_OVERLOADING)
CalendarSelectMonthMethodInfo ,
#endif
calendarSelectMonth ,
#if defined(ENABLE_OVERLOADING)
CalendarSetDetailFuncMethodInfo ,
#endif
calendarSetDetailFunc ,
#if defined(ENABLE_OVERLOADING)
CalendarSetDetailHeightRowsMethodInfo ,
#endif
calendarSetDetailHeightRows ,
#if defined(ENABLE_OVERLOADING)
CalendarSetDetailWidthCharsMethodInfo ,
#endif
calendarSetDetailWidthChars ,
#if defined(ENABLE_OVERLOADING)
CalendarSetDisplayOptionsMethodInfo ,
#endif
calendarSetDisplayOptions ,
#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)
CalendarDetailHeightRowsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarDetailHeightRows ,
#endif
constructCalendarDetailHeightRows ,
getCalendarDetailHeightRows ,
setCalendarDetailHeightRows ,
#if defined(ENABLE_OVERLOADING)
CalendarDetailWidthCharsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarDetailWidthChars ,
#endif
constructCalendarDetailWidthChars ,
getCalendarDetailWidthChars ,
setCalendarDetailWidthChars ,
#if defined(ENABLE_OVERLOADING)
CalendarMonthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarMonth ,
#endif
constructCalendarMonth ,
getCalendarMonth ,
setCalendarMonth ,
#if defined(ENABLE_OVERLOADING)
CalendarNoMonthChangePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarNoMonthChange ,
#endif
constructCalendarNoMonthChange ,
getCalendarNoMonthChange ,
setCalendarNoMonthChange ,
#if defined(ENABLE_OVERLOADING)
CalendarShowDayNamesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowDayNames ,
#endif
constructCalendarShowDayNames ,
getCalendarShowDayNames ,
setCalendarShowDayNames ,
#if defined(ENABLE_OVERLOADING)
CalendarShowDetailsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
calendarShowDetails ,
#endif
constructCalendarShowDetails ,
getCalendarShowDetails ,
setCalendarShowDetails ,
#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_CalendarDaySelectedDoubleClickCallback,
CalendarDaySelectedDoubleClickCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarDaySelectedDoubleClickSignalInfo,
#endif
afterCalendarDaySelectedDoubleClick ,
genClosure_CalendarDaySelectedDoubleClick,
mk_CalendarDaySelectedDoubleClickCallback,
noCalendarDaySelectedDoubleClickCallback,
onCalendarDaySelectedDoubleClick ,
wrap_CalendarDaySelectedDoubleClickCallback,
C_CalendarMonthChangedCallback ,
CalendarMonthChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CalendarMonthChangedSignalInfo ,
#endif
afterCalendarMonthChanged ,
genClosure_CalendarMonthChanged ,
mk_CalendarMonthChangedCallback ,
noCalendarMonthChangedCallback ,
onCalendarMonthChanged ,
wrap_CalendarMonthChangedCallback ,
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.ManagedPtr as B.ManagedPtr
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 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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Calendar = Calendar (ManagedPtr Calendar)
deriving (Eq)
foreign import ccall "gtk_calendar_get_type"
c_gtk_calendar_get_type :: IO GType
instance GObject Calendar where
gobjectType = c_gtk_calendar_get_type
instance B.GValue.IsGValue Calendar where
toGValue o = do
gtype <- c_gtk_calendar_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr Calendar)
B.ManagedPtr.newObject Calendar ptr
class (GObject o, O.IsDescendantOf Calendar o) => IsCalendar o
instance (GObject o, O.IsDescendantOf Calendar o) => IsCalendar o
instance O.HasParentTypes Calendar
type instance O.ParentTypes Calendar = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toCalendar :: (MonadIO m, IsCalendar o) => o -> m Calendar
toCalendar = liftIO . unsafeCastTo Calendar
noCalendar :: Maybe Calendar
noCalendar = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCalendarMethod (t :: Symbol) (o :: *) :: * where
ResolveCalendarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveCalendarMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveCalendarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveCalendarMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveCalendarMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveCalendarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveCalendarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveCalendarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCalendarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCalendarMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveCalendarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveCalendarMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveCalendarMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveCalendarMethod "clearMarks" o = CalendarClearMarksMethodInfo
ResolveCalendarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveCalendarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveCalendarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveCalendarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveCalendarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveCalendarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveCalendarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveCalendarMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveCalendarMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveCalendarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveCalendarMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveCalendarMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveCalendarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveCalendarMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveCalendarMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveCalendarMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveCalendarMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveCalendarMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveCalendarMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveCalendarMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveCalendarMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveCalendarMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveCalendarMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveCalendarMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveCalendarMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveCalendarMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveCalendarMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveCalendarMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveCalendarMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveCalendarMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveCalendarMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveCalendarMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveCalendarMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveCalendarMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveCalendarMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveCalendarMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveCalendarMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveCalendarMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveCalendarMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveCalendarMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveCalendarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveCalendarMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveCalendarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCalendarMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveCalendarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCalendarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCalendarMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveCalendarMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveCalendarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveCalendarMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveCalendarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveCalendarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveCalendarMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveCalendarMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveCalendarMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveCalendarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveCalendarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveCalendarMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveCalendarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveCalendarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveCalendarMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveCalendarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveCalendarMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveCalendarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveCalendarMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveCalendarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveCalendarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveCalendarMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveCalendarMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveCalendarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveCalendarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveCalendarMethod "markDay" o = CalendarMarkDayMethodInfo
ResolveCalendarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveCalendarMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveCalendarMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveCalendarMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveCalendarMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveCalendarMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveCalendarMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveCalendarMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveCalendarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCalendarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCalendarMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveCalendarMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveCalendarMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveCalendarMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveCalendarMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveCalendarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveCalendarMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveCalendarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveCalendarMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveCalendarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveCalendarMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveCalendarMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveCalendarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveCalendarMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveCalendarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveCalendarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCalendarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCalendarMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveCalendarMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveCalendarMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveCalendarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveCalendarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveCalendarMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveCalendarMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveCalendarMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveCalendarMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveCalendarMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveCalendarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCalendarMethod "selectDay" o = CalendarSelectDayMethodInfo
ResolveCalendarMethod "selectMonth" o = CalendarSelectMonthMethodInfo
ResolveCalendarMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveCalendarMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveCalendarMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveCalendarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveCalendarMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveCalendarMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveCalendarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveCalendarMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveCalendarMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveCalendarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCalendarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCalendarMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveCalendarMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveCalendarMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveCalendarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveCalendarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCalendarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveCalendarMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveCalendarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveCalendarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveCalendarMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveCalendarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveCalendarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveCalendarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveCalendarMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveCalendarMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveCalendarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveCalendarMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveCalendarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveCalendarMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveCalendarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveCalendarMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveCalendarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCalendarMethod "getDate" o = CalendarGetDateMethodInfo
ResolveCalendarMethod "getDayIsMarked" o = CalendarGetDayIsMarkedMethodInfo
ResolveCalendarMethod "getDetailHeightRows" o = CalendarGetDetailHeightRowsMethodInfo
ResolveCalendarMethod "getDetailWidthChars" o = CalendarGetDetailWidthCharsMethodInfo
ResolveCalendarMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveCalendarMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveCalendarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveCalendarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveCalendarMethod "getDisplayOptions" o = CalendarGetDisplayOptionsMethodInfo
ResolveCalendarMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveCalendarMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveCalendarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
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 "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveCalendarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveCalendarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveCalendarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveCalendarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveCalendarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveCalendarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveCalendarMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveCalendarMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveCalendarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveCalendarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveCalendarMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveCalendarMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveCalendarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveCalendarMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveCalendarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveCalendarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveCalendarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveCalendarMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveCalendarMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveCalendarMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveCalendarMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveCalendarMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveCalendarMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveCalendarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveCalendarMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveCalendarMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveCalendarMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveCalendarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveCalendarMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveCalendarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveCalendarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveCalendarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveCalendarMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveCalendarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveCalendarMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveCalendarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveCalendarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveCalendarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveCalendarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveCalendarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveCalendarMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveCalendarMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveCalendarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveCalendarMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveCalendarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveCalendarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveCalendarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveCalendarMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveCalendarMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveCalendarMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveCalendarMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveCalendarMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveCalendarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveCalendarMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveCalendarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveCalendarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveCalendarMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveCalendarMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveCalendarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCalendarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCalendarMethod "setDetailFunc" o = CalendarSetDetailFuncMethodInfo
ResolveCalendarMethod "setDetailHeightRows" o = CalendarSetDetailHeightRowsMethodInfo
ResolveCalendarMethod "setDetailWidthChars" o = CalendarSetDetailWidthCharsMethodInfo
ResolveCalendarMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveCalendarMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveCalendarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveCalendarMethod "setDisplayOptions" o = CalendarSetDisplayOptionsMethodInfo
ResolveCalendarMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveCalendarMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveCalendarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
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 "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveCalendarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveCalendarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveCalendarMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveCalendarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveCalendarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveCalendarMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveCalendarMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveCalendarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveCalendarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveCalendarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveCalendarMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveCalendarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveCalendarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveCalendarMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveCalendarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCalendarMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveCalendarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveCalendarMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveCalendarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveCalendarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveCalendarMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveCalendarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveCalendarMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveCalendarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveCalendarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveCalendarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveCalendarMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveCalendarMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveCalendarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCalendarMethod t Calendar, O.MethodInfo 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
#endif
type CalendarDaySelectedCallback =
IO ()
noCalendarDaySelectedCallback :: Maybe CalendarDaySelectedCallback
noCalendarDaySelectedCallback = 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 cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedCallback cb
mk_CalendarDaySelectedCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarDaySelectedCallback ::
CalendarDaySelectedCallback ->
C_CalendarDaySelectedCallback
wrap_CalendarDaySelectedCallback _cb _ _ = do
_cb
onCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
onCalendarDaySelected obj cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedCallback cb
cb'' <- mk_CalendarDaySelectedCallback cb'
connectSignalFunPtr obj "day-selected" cb'' SignalConnectBefore Nothing
afterCalendarDaySelected :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
afterCalendarDaySelected obj cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedCallback cb
cb'' <- mk_CalendarDaySelectedCallback cb'
connectSignalFunPtr obj "day-selected" cb'' SignalConnectAfter 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 CalendarDaySelectedDoubleClickCallback =
IO ()
noCalendarDaySelectedDoubleClickCallback :: Maybe CalendarDaySelectedDoubleClickCallback
noCalendarDaySelectedDoubleClickCallback = Nothing
type C_CalendarDaySelectedDoubleClickCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarDaySelectedDoubleClickCallback :: C_CalendarDaySelectedDoubleClickCallback -> IO (FunPtr C_CalendarDaySelectedDoubleClickCallback)
genClosure_CalendarDaySelectedDoubleClick :: MonadIO m => CalendarDaySelectedDoubleClickCallback -> m (GClosure C_CalendarDaySelectedDoubleClickCallback)
genClosure_CalendarDaySelectedDoubleClick cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedDoubleClickCallback cb
mk_CalendarDaySelectedDoubleClickCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarDaySelectedDoubleClickCallback ::
CalendarDaySelectedDoubleClickCallback ->
C_CalendarDaySelectedDoubleClickCallback
wrap_CalendarDaySelectedDoubleClickCallback _cb _ _ = do
_cb
onCalendarDaySelectedDoubleClick :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
onCalendarDaySelectedDoubleClick obj cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedDoubleClickCallback cb
cb'' <- mk_CalendarDaySelectedDoubleClickCallback cb'
connectSignalFunPtr obj "day-selected-double-click" cb'' SignalConnectBefore Nothing
afterCalendarDaySelectedDoubleClick :: (IsCalendar a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
afterCalendarDaySelectedDoubleClick obj cb = liftIO $ do
let cb' = wrap_CalendarDaySelectedDoubleClickCallback cb
cb'' <- mk_CalendarDaySelectedDoubleClickCallback cb'
connectSignalFunPtr obj "day-selected-double-click" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarDaySelectedDoubleClickSignalInfo
instance SignalInfo CalendarDaySelectedDoubleClickSignalInfo where
type HaskellCallbackType CalendarDaySelectedDoubleClickSignalInfo = CalendarDaySelectedDoubleClickCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarDaySelectedDoubleClickCallback cb
cb'' <- mk_CalendarDaySelectedDoubleClickCallback cb'
connectSignalFunPtr obj "day-selected-double-click" cb'' connectMode detail
#endif
type CalendarMonthChangedCallback =
IO ()
noCalendarMonthChangedCallback :: Maybe CalendarMonthChangedCallback
noCalendarMonthChangedCallback = Nothing
type C_CalendarMonthChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CalendarMonthChangedCallback :: C_CalendarMonthChangedCallback -> IO (FunPtr C_CalendarMonthChangedCallback)
genClosure_CalendarMonthChanged :: MonadIO m => CalendarMonthChangedCallback -> m (GClosure C_CalendarMonthChangedCallback)
genClosure_CalendarMonthChanged cb = liftIO $ do
let cb' = wrap_CalendarMonthChangedCallback cb
mk_CalendarMonthChangedCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarMonthChangedCallback ::
CalendarMonthChangedCallback ->
C_CalendarMonthChangedCallback
wrap_CalendarMonthChangedCallback _cb _ _ = do
_cb
onCalendarMonthChanged :: (IsCalendar a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
onCalendarMonthChanged obj cb = liftIO $ do
let cb' = wrap_CalendarMonthChangedCallback cb
cb'' <- mk_CalendarMonthChangedCallback cb'
connectSignalFunPtr obj "month-changed" cb'' SignalConnectBefore Nothing
afterCalendarMonthChanged :: (IsCalendar a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
afterCalendarMonthChanged obj cb = liftIO $ do
let cb' = wrap_CalendarMonthChangedCallback cb
cb'' <- mk_CalendarMonthChangedCallback cb'
connectSignalFunPtr obj "month-changed" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CalendarMonthChangedSignalInfo
instance SignalInfo CalendarMonthChangedSignalInfo where
type HaskellCallbackType CalendarMonthChangedSignalInfo = CalendarMonthChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CalendarMonthChangedCallback cb
cb'' <- mk_CalendarMonthChangedCallback cb'
connectSignalFunPtr obj "month-changed" cb'' connectMode detail
#endif
type CalendarNextMonthCallback =
IO ()
noCalendarNextMonthCallback :: Maybe CalendarNextMonthCallback
noCalendarNextMonthCallback = 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 cb = liftIO $ do
let cb' = wrap_CalendarNextMonthCallback cb
mk_CalendarNextMonthCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarNextMonthCallback ::
CalendarNextMonthCallback ->
C_CalendarNextMonthCallback
wrap_CalendarNextMonthCallback _cb _ _ = do
_cb
onCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
onCalendarNextMonth obj cb = liftIO $ do
let cb' = wrap_CalendarNextMonthCallback cb
cb'' <- mk_CalendarNextMonthCallback cb'
connectSignalFunPtr obj "next-month" cb'' SignalConnectBefore Nothing
afterCalendarNextMonth :: (IsCalendar a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
afterCalendarNextMonth obj cb = liftIO $ do
let cb' = wrap_CalendarNextMonthCallback cb
cb'' <- mk_CalendarNextMonthCallback cb'
connectSignalFunPtr obj "next-month" cb'' SignalConnectAfter 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 = 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 cb = liftIO $ do
let cb' = wrap_CalendarNextYearCallback cb
mk_CalendarNextYearCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarNextYearCallback ::
CalendarNextYearCallback ->
C_CalendarNextYearCallback
wrap_CalendarNextYearCallback _cb _ _ = do
_cb
onCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
onCalendarNextYear obj cb = liftIO $ do
let cb' = wrap_CalendarNextYearCallback cb
cb'' <- mk_CalendarNextYearCallback cb'
connectSignalFunPtr obj "next-year" cb'' SignalConnectBefore Nothing
afterCalendarNextYear :: (IsCalendar a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
afterCalendarNextYear obj cb = liftIO $ do
let cb' = wrap_CalendarNextYearCallback cb
cb'' <- mk_CalendarNextYearCallback cb'
connectSignalFunPtr obj "next-year" cb'' SignalConnectAfter 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 = 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 cb = liftIO $ do
let cb' = wrap_CalendarPrevMonthCallback cb
mk_CalendarPrevMonthCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarPrevMonthCallback ::
CalendarPrevMonthCallback ->
C_CalendarPrevMonthCallback
wrap_CalendarPrevMonthCallback _cb _ _ = do
_cb
onCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
onCalendarPrevMonth obj cb = liftIO $ do
let cb' = wrap_CalendarPrevMonthCallback cb
cb'' <- mk_CalendarPrevMonthCallback cb'
connectSignalFunPtr obj "prev-month" cb'' SignalConnectBefore Nothing
afterCalendarPrevMonth :: (IsCalendar a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
afterCalendarPrevMonth obj cb = liftIO $ do
let cb' = wrap_CalendarPrevMonthCallback cb
cb'' <- mk_CalendarPrevMonthCallback cb'
connectSignalFunPtr obj "prev-month" cb'' SignalConnectAfter 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 = 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 cb = liftIO $ do
let cb' = wrap_CalendarPrevYearCallback cb
mk_CalendarPrevYearCallback cb' >>= B.GClosure.newGClosure
wrap_CalendarPrevYearCallback ::
CalendarPrevYearCallback ->
C_CalendarPrevYearCallback
wrap_CalendarPrevYearCallback _cb _ _ = do
_cb
onCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
onCalendarPrevYear obj cb = liftIO $ do
let cb' = wrap_CalendarPrevYearCallback cb
cb'' <- mk_CalendarPrevYearCallback cb'
connectSignalFunPtr obj "prev-year" cb'' SignalConnectBefore Nothing
afterCalendarPrevYear :: (IsCalendar a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
afterCalendarPrevYear obj cb = liftIO $ do
let cb' = wrap_CalendarPrevYearCallback cb
cb'' <- mk_CalendarPrevYearCallback cb'
connectSignalFunPtr obj "prev-year" cb'' SignalConnectAfter 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 obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "day"
setCalendarDay :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarDay obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "day" val
constructCalendarDay :: (IsCalendar o) => Int32 -> IO (GValueConstruct o)
constructCalendarDay val = B.Properties.constructObjectPropertyInt32 "day" 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
getCalendarDetailHeightRows :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarDetailHeightRows obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "detail-height-rows"
setCalendarDetailHeightRows :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarDetailHeightRows obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "detail-height-rows" val
constructCalendarDetailHeightRows :: (IsCalendar o) => Int32 -> IO (GValueConstruct o)
constructCalendarDetailHeightRows val = B.Properties.constructObjectPropertyInt32 "detail-height-rows" val
#if defined(ENABLE_OVERLOADING)
data CalendarDetailHeightRowsPropertyInfo
instance AttrInfo CalendarDetailHeightRowsPropertyInfo where
type AttrAllowedOps CalendarDetailHeightRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarDetailHeightRowsPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarDetailHeightRowsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CalendarDetailHeightRowsPropertyInfo = (~) Int32
type AttrTransferType CalendarDetailHeightRowsPropertyInfo = Int32
type AttrGetType CalendarDetailHeightRowsPropertyInfo = Int32
type AttrLabel CalendarDetailHeightRowsPropertyInfo = "detail-height-rows"
type AttrOrigin CalendarDetailHeightRowsPropertyInfo = Calendar
attrGet = getCalendarDetailHeightRows
attrSet = setCalendarDetailHeightRows
attrTransfer _ v = do
return v
attrConstruct = constructCalendarDetailHeightRows
attrClear = undefined
#endif
getCalendarDetailWidthChars :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarDetailWidthChars obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "detail-width-chars"
setCalendarDetailWidthChars :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarDetailWidthChars obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "detail-width-chars" val
constructCalendarDetailWidthChars :: (IsCalendar o) => Int32 -> IO (GValueConstruct o)
constructCalendarDetailWidthChars val = B.Properties.constructObjectPropertyInt32 "detail-width-chars" val
#if defined(ENABLE_OVERLOADING)
data CalendarDetailWidthCharsPropertyInfo
instance AttrInfo CalendarDetailWidthCharsPropertyInfo where
type AttrAllowedOps CalendarDetailWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarDetailWidthCharsPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarDetailWidthCharsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CalendarDetailWidthCharsPropertyInfo = (~) Int32
type AttrTransferType CalendarDetailWidthCharsPropertyInfo = Int32
type AttrGetType CalendarDetailWidthCharsPropertyInfo = Int32
type AttrLabel CalendarDetailWidthCharsPropertyInfo = "detail-width-chars"
type AttrOrigin CalendarDetailWidthCharsPropertyInfo = Calendar
attrGet = getCalendarDetailWidthChars
attrSet = setCalendarDetailWidthChars
attrTransfer _ v = do
return v
attrConstruct = constructCalendarDetailWidthChars
attrClear = undefined
#endif
getCalendarMonth :: (MonadIO m, IsCalendar o) => o -> m Int32
getCalendarMonth obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "month"
setCalendarMonth :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarMonth obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "month" val
constructCalendarMonth :: (IsCalendar o) => Int32 -> IO (GValueConstruct o)
constructCalendarMonth val = B.Properties.constructObjectPropertyInt32 "month" 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
getCalendarNoMonthChange :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarNoMonthChange obj = liftIO $ B.Properties.getObjectPropertyBool obj "no-month-change"
setCalendarNoMonthChange :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarNoMonthChange obj val = liftIO $ B.Properties.setObjectPropertyBool obj "no-month-change" val
constructCalendarNoMonthChange :: (IsCalendar o) => Bool -> IO (GValueConstruct o)
constructCalendarNoMonthChange val = B.Properties.constructObjectPropertyBool "no-month-change" val
#if defined(ENABLE_OVERLOADING)
data CalendarNoMonthChangePropertyInfo
instance AttrInfo CalendarNoMonthChangePropertyInfo where
type AttrAllowedOps CalendarNoMonthChangePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarNoMonthChangePropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarNoMonthChangePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CalendarNoMonthChangePropertyInfo = (~) Bool
type AttrTransferType CalendarNoMonthChangePropertyInfo = Bool
type AttrGetType CalendarNoMonthChangePropertyInfo = Bool
type AttrLabel CalendarNoMonthChangePropertyInfo = "no-month-change"
type AttrOrigin CalendarNoMonthChangePropertyInfo = Calendar
attrGet = getCalendarNoMonthChange
attrSet = setCalendarNoMonthChange
attrTransfer _ v = do
return v
attrConstruct = constructCalendarNoMonthChange
attrClear = undefined
#endif
getCalendarShowDayNames :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowDayNames obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-day-names"
setCalendarShowDayNames :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowDayNames obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-day-names" val
constructCalendarShowDayNames :: (IsCalendar o) => Bool -> IO (GValueConstruct o)
constructCalendarShowDayNames val = B.Properties.constructObjectPropertyBool "show-day-names" 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
getCalendarShowDetails :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowDetails obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-details"
setCalendarShowDetails :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowDetails obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-details" val
constructCalendarShowDetails :: (IsCalendar o) => Bool -> IO (GValueConstruct o)
constructCalendarShowDetails val = B.Properties.constructObjectPropertyBool "show-details" val
#if defined(ENABLE_OVERLOADING)
data CalendarShowDetailsPropertyInfo
instance AttrInfo CalendarShowDetailsPropertyInfo where
type AttrAllowedOps CalendarShowDetailsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CalendarShowDetailsPropertyInfo = IsCalendar
type AttrSetTypeConstraint CalendarShowDetailsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CalendarShowDetailsPropertyInfo = (~) Bool
type AttrTransferType CalendarShowDetailsPropertyInfo = Bool
type AttrGetType CalendarShowDetailsPropertyInfo = Bool
type AttrLabel CalendarShowDetailsPropertyInfo = "show-details"
type AttrOrigin CalendarShowDetailsPropertyInfo = Calendar
attrGet = getCalendarShowDetails
attrSet = setCalendarShowDetails
attrTransfer _ v = do
return v
attrConstruct = constructCalendarShowDetails
attrClear = undefined
#endif
getCalendarShowHeading :: (MonadIO m, IsCalendar o) => o -> m Bool
getCalendarShowHeading obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-heading"
setCalendarShowHeading :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowHeading obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-heading" val
constructCalendarShowHeading :: (IsCalendar o) => Bool -> IO (GValueConstruct o)
constructCalendarShowHeading val = B.Properties.constructObjectPropertyBool "show-heading" 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 obj = liftIO $ B.Properties.getObjectPropertyBool obj "show-week-numbers"
setCalendarShowWeekNumbers :: (MonadIO m, IsCalendar o) => o -> Bool -> m ()
setCalendarShowWeekNumbers obj val = liftIO $ B.Properties.setObjectPropertyBool obj "show-week-numbers" val
constructCalendarShowWeekNumbers :: (IsCalendar o) => Bool -> IO (GValueConstruct o)
constructCalendarShowWeekNumbers val = B.Properties.constructObjectPropertyBool "show-week-numbers" 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 obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "year"
setCalendarYear :: (MonadIO m, IsCalendar o) => o -> Int32 -> m ()
setCalendarYear obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "year" val
constructCalendarYear :: (IsCalendar o) => Int32 -> IO (GValueConstruct o)
constructCalendarYear val = B.Properties.constructObjectPropertyInt32 "year" 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 = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detailHeightRows", CalendarDetailHeightRowsPropertyInfo), '("detailWidthChars", CalendarDetailWidthCharsPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noMonthChange", CalendarNoMonthChangePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showDetails", CalendarShowDetailsPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
calendarDay :: AttrLabelProxy "day"
calendarDay = AttrLabelProxy
calendarDetailHeightRows :: AttrLabelProxy "detailHeightRows"
calendarDetailHeightRows = AttrLabelProxy
calendarDetailWidthChars :: AttrLabelProxy "detailWidthChars"
calendarDetailWidthChars = AttrLabelProxy
calendarMonth :: AttrLabelProxy "month"
calendarMonth = AttrLabelProxy
calendarNoMonthChange :: AttrLabelProxy "noMonthChange"
calendarNoMonthChange = AttrLabelProxy
calendarShowDayNames :: AttrLabelProxy "showDayNames"
calendarShowDayNames = AttrLabelProxy
calendarShowDetails :: AttrLabelProxy "showDetails"
calendarShowDetails = 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 = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("daySelected", CalendarDaySelectedSignalInfo), '("daySelectedDoubleClick", CalendarDaySelectedDoubleClickSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("monthChanged", CalendarMonthChangedSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("nextMonth", CalendarNextMonthSignalInfo), '("nextYear", CalendarNextYearSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("prevMonth", CalendarPrevMonthSignalInfo), '("prevYear", CalendarPrevYearSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_calendar_new" gtk_calendar_new ::
IO (Ptr Calendar)
calendarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Calendar
calendarNew = liftIO $ do
result <- gtk_calendar_new
checkUnexpectedReturnNULL "calendarNew" result
result' <- (newObject Calendar) result
return 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 calendar = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_clear_marks calendar'
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarClearMarksMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarClearMarksMethodInfo a signature where
overloadedMethod = calendarClearMarks
#endif
foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date ::
Ptr Calendar ->
Ptr Word32 ->
Ptr Word32 ->
Ptr Word32 ->
IO ()
calendarGetDate ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m ((Word32, Word32, Word32))
calendarGetDate calendar = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
year <- allocMem :: IO (Ptr Word32)
month <- allocMem :: IO (Ptr Word32)
day <- allocMem :: IO (Ptr Word32)
gtk_calendar_get_date calendar' year month day
year' <- peek year
month' <- peek month
day' <- peek day
touchManagedPtr calendar
freeMem year
freeMem month
freeMem day
return (year', month', day')
#if defined(ENABLE_OVERLOADING)
data CalendarGetDateMethodInfo
instance (signature ~ (m ((Word32, Word32, Word32))), MonadIO m, IsCalendar a) => O.MethodInfo CalendarGetDateMethodInfo a signature where
overloadedMethod = 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 calendar day = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
result <- gtk_calendar_get_day_is_marked calendar' day
let result' = (/= 0) result
touchManagedPtr calendar
return result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetDayIsMarkedMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsCalendar a) => O.MethodInfo CalendarGetDayIsMarkedMethodInfo a signature where
overloadedMethod = calendarGetDayIsMarked
#endif
foreign import ccall "gtk_calendar_get_detail_height_rows" gtk_calendar_get_detail_height_rows ::
Ptr Calendar ->
IO Int32
calendarGetDetailHeightRows ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Int32
calendarGetDetailHeightRows calendar = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
result <- gtk_calendar_get_detail_height_rows calendar'
touchManagedPtr calendar
return result
#if defined(ENABLE_OVERLOADING)
data CalendarGetDetailHeightRowsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCalendar a) => O.MethodInfo CalendarGetDetailHeightRowsMethodInfo a signature where
overloadedMethod = calendarGetDetailHeightRows
#endif
foreign import ccall "gtk_calendar_get_detail_width_chars" gtk_calendar_get_detail_width_chars ::
Ptr Calendar ->
IO Int32
calendarGetDetailWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m Int32
calendarGetDetailWidthChars calendar = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
result <- gtk_calendar_get_detail_width_chars calendar'
touchManagedPtr calendar
return result
#if defined(ENABLE_OVERLOADING)
data CalendarGetDetailWidthCharsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCalendar a) => O.MethodInfo CalendarGetDetailWidthCharsMethodInfo a signature where
overloadedMethod = calendarGetDetailWidthChars
#endif
foreign import ccall "gtk_calendar_get_display_options" gtk_calendar_get_display_options ::
Ptr Calendar ->
IO CUInt
calendarGetDisplayOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> m [Gtk.Flags.CalendarDisplayOptions]
calendarGetDisplayOptions calendar = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
result <- gtk_calendar_get_display_options calendar'
let result' = wordToGFlags result
touchManagedPtr calendar
return result'
#if defined(ENABLE_OVERLOADING)
data CalendarGetDisplayOptionsMethodInfo
instance (signature ~ (m [Gtk.Flags.CalendarDisplayOptions]), MonadIO m, IsCalendar a) => O.MethodInfo CalendarGetDisplayOptionsMethodInfo a signature where
overloadedMethod = calendarGetDisplayOptions
#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 calendar day = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_mark_day calendar' day
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarMarkDayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarMarkDayMethodInfo a signature where
overloadedMethod = calendarMarkDay
#endif
foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarSelectDay ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> m ()
calendarSelectDay calendar day = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_select_day calendar' day
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSelectDayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSelectDayMethodInfo a signature where
overloadedMethod = calendarSelectDay
#endif
foreign import ccall "gtk_calendar_select_month" gtk_calendar_select_month ::
Ptr Calendar ->
Word32 ->
Word32 ->
IO ()
calendarSelectMonth ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Word32
-> Word32
-> m ()
calendarSelectMonth calendar month year = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_select_month calendar' month year
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSelectMonthMethodInfo
instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSelectMonthMethodInfo a signature where
overloadedMethod = calendarSelectMonth
#endif
foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func ::
Ptr Calendar ->
FunPtr Gtk.Callbacks.C_CalendarDetailFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
calendarSetDetailFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Gtk.Callbacks.CalendarDetailFunc
-> m ()
calendarSetDetailFunc calendar func = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
func' <- Gtk.Callbacks.mk_CalendarDetailFunc (Gtk.Callbacks.wrap_CalendarDetailFunc Nothing (Gtk.Callbacks.drop_closures_CalendarDetailFunc func))
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_calendar_set_detail_func calendar' func' data_ destroy
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetDetailFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.CalendarDetailFunc -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSetDetailFuncMethodInfo a signature where
overloadedMethod = calendarSetDetailFunc
#endif
foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetDetailHeightRows ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Int32
-> m ()
calendarSetDetailHeightRows calendar rows = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_set_detail_height_rows calendar' rows
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetDetailHeightRowsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSetDetailHeightRowsMethodInfo a signature where
overloadedMethod = calendarSetDetailHeightRows
#endif
foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetDetailWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> Int32
-> m ()
calendarSetDetailWidthChars calendar chars = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_set_detail_width_chars calendar' chars
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetDetailWidthCharsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSetDetailWidthCharsMethodInfo a signature where
overloadedMethod = calendarSetDetailWidthChars
#endif
foreign import ccall "gtk_calendar_set_display_options" gtk_calendar_set_display_options ::
Ptr Calendar ->
CUInt ->
IO ()
calendarSetDisplayOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCalendar a) =>
a
-> [Gtk.Flags.CalendarDisplayOptions]
-> m ()
calendarSetDisplayOptions calendar flags = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
let flags' = gflagsToWord flags
gtk_calendar_set_display_options calendar' flags'
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarSetDisplayOptionsMethodInfo
instance (signature ~ ([Gtk.Flags.CalendarDisplayOptions] -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarSetDisplayOptionsMethodInfo a signature where
overloadedMethod = calendarSetDisplayOptions
#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 calendar day = liftIO $ do
calendar' <- unsafeManagedPtrCastPtr calendar
gtk_calendar_unmark_day calendar' day
touchManagedPtr calendar
return ()
#if defined(ENABLE_OVERLOADING)
data CalendarUnmarkDayMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCalendar a) => O.MethodInfo CalendarUnmarkDayMethodInfo a signature where
overloadedMethod = calendarUnmarkDay
#endif