module GI.Gtk.Objects.Calendar
(
Calendar(..) ,
CalendarK ,
toCalendar ,
noCalendar ,
calendarClearMarks ,
calendarGetDate ,
calendarGetDayIsMarked ,
calendarGetDetailHeightRows ,
calendarGetDetailWidthChars ,
calendarGetDisplayOptions ,
calendarMarkDay ,
calendarNew ,
calendarSelectDay ,
calendarSelectMonth ,
calendarSetDetailFunc ,
calendarSetDetailHeightRows ,
calendarSetDetailWidthChars ,
calendarSetDisplayOptions ,
calendarUnmarkDay ,
CalendarDayPropertyInfo ,
constructCalendarDay ,
getCalendarDay ,
setCalendarDay ,
CalendarDetailHeightRowsPropertyInfo ,
constructCalendarDetailHeightRows ,
getCalendarDetailHeightRows ,
setCalendarDetailHeightRows ,
CalendarDetailWidthCharsPropertyInfo ,
constructCalendarDetailWidthChars ,
getCalendarDetailWidthChars ,
setCalendarDetailWidthChars ,
CalendarMonthPropertyInfo ,
constructCalendarMonth ,
getCalendarMonth ,
setCalendarMonth ,
CalendarNoMonthChangePropertyInfo ,
constructCalendarNoMonthChange ,
getCalendarNoMonthChange ,
setCalendarNoMonthChange ,
CalendarShowDayNamesPropertyInfo ,
constructCalendarShowDayNames ,
getCalendarShowDayNames ,
setCalendarShowDayNames ,
CalendarShowDetailsPropertyInfo ,
constructCalendarShowDetails ,
getCalendarShowDetails ,
setCalendarShowDetails ,
CalendarShowHeadingPropertyInfo ,
constructCalendarShowHeading ,
getCalendarShowHeading ,
setCalendarShowHeading ,
CalendarShowWeekNumbersPropertyInfo ,
constructCalendarShowWeekNumbers ,
getCalendarShowWeekNumbers ,
setCalendarShowWeekNumbers ,
CalendarYearPropertyInfo ,
constructCalendarYear ,
getCalendarYear ,
setCalendarYear ,
CalendarDaySelectedCallback ,
CalendarDaySelectedCallbackC ,
CalendarDaySelectedSignalInfo ,
afterCalendarDaySelected ,
calendarDaySelectedCallbackWrapper ,
calendarDaySelectedClosure ,
mkCalendarDaySelectedCallback ,
noCalendarDaySelectedCallback ,
onCalendarDaySelected ,
CalendarDaySelectedDoubleClickCallback ,
CalendarDaySelectedDoubleClickCallbackC ,
CalendarDaySelectedDoubleClickSignalInfo,
afterCalendarDaySelectedDoubleClick ,
calendarDaySelectedDoubleClickCallbackWrapper,
calendarDaySelectedDoubleClickClosure ,
mkCalendarDaySelectedDoubleClickCallback,
noCalendarDaySelectedDoubleClickCallback,
onCalendarDaySelectedDoubleClick ,
CalendarMonthChangedCallback ,
CalendarMonthChangedCallbackC ,
CalendarMonthChangedSignalInfo ,
afterCalendarMonthChanged ,
calendarMonthChangedCallbackWrapper ,
calendarMonthChangedClosure ,
mkCalendarMonthChangedCallback ,
noCalendarMonthChangedCallback ,
onCalendarMonthChanged ,
CalendarNextMonthCallback ,
CalendarNextMonthCallbackC ,
CalendarNextMonthSignalInfo ,
afterCalendarNextMonth ,
calendarNextMonthCallbackWrapper ,
calendarNextMonthClosure ,
mkCalendarNextMonthCallback ,
noCalendarNextMonthCallback ,
onCalendarNextMonth ,
CalendarNextYearCallback ,
CalendarNextYearCallbackC ,
CalendarNextYearSignalInfo ,
afterCalendarNextYear ,
calendarNextYearCallbackWrapper ,
calendarNextYearClosure ,
mkCalendarNextYearCallback ,
noCalendarNextYearCallback ,
onCalendarNextYear ,
CalendarPrevMonthCallback ,
CalendarPrevMonthCallbackC ,
CalendarPrevMonthSignalInfo ,
afterCalendarPrevMonth ,
calendarPrevMonthCallbackWrapper ,
calendarPrevMonthClosure ,
mkCalendarPrevMonthCallback ,
noCalendarPrevMonthCallback ,
onCalendarPrevMonth ,
CalendarPrevYearCallback ,
CalendarPrevYearCallbackC ,
CalendarPrevYearSignalInfo ,
afterCalendarPrevYear ,
calendarPrevYearCallbackWrapper ,
calendarPrevYearClosure ,
mkCalendarPrevYearCallback ,
noCalendarPrevYearCallback ,
onCalendarPrevYear ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype Calendar = Calendar (ForeignPtr Calendar)
foreign import ccall "gtk_calendar_get_type"
c_gtk_calendar_get_type :: IO GType
type instance ParentTypes Calendar = CalendarParentTypes
type CalendarParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Calendar where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_calendar_get_type
class GObject o => CalendarK o
instance (GObject o, IsDescendantOf Calendar o) => CalendarK o
toCalendar :: CalendarK o => o -> IO Calendar
toCalendar = unsafeCastTo Calendar
noCalendar :: Maybe Calendar
noCalendar = Nothing
type CalendarDaySelectedCallback =
IO ()
noCalendarDaySelectedCallback :: Maybe CalendarDaySelectedCallback
noCalendarDaySelectedCallback = Nothing
type CalendarDaySelectedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarDaySelectedCallback :: CalendarDaySelectedCallbackC -> IO (FunPtr CalendarDaySelectedCallbackC)
calendarDaySelectedClosure :: CalendarDaySelectedCallback -> IO Closure
calendarDaySelectedClosure cb = newCClosure =<< mkCalendarDaySelectedCallback wrapped
where wrapped = calendarDaySelectedCallbackWrapper cb
calendarDaySelectedCallbackWrapper ::
CalendarDaySelectedCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarDaySelectedCallbackWrapper _cb _ _ = do
_cb
onCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
onCalendarDaySelected obj cb = liftIO $ connectCalendarDaySelected obj cb SignalConnectBefore
afterCalendarDaySelected :: (GObject a, MonadIO m) => a -> CalendarDaySelectedCallback -> m SignalHandlerId
afterCalendarDaySelected obj cb = connectCalendarDaySelected obj cb SignalConnectAfter
connectCalendarDaySelected :: (GObject a, MonadIO m) =>
a -> CalendarDaySelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarDaySelected obj cb after = liftIO $ do
cb' <- mkCalendarDaySelectedCallback (calendarDaySelectedCallbackWrapper cb)
connectSignalFunPtr obj "day-selected" cb' after
type CalendarDaySelectedDoubleClickCallback =
IO ()
noCalendarDaySelectedDoubleClickCallback :: Maybe CalendarDaySelectedDoubleClickCallback
noCalendarDaySelectedDoubleClickCallback = Nothing
type CalendarDaySelectedDoubleClickCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarDaySelectedDoubleClickCallback :: CalendarDaySelectedDoubleClickCallbackC -> IO (FunPtr CalendarDaySelectedDoubleClickCallbackC)
calendarDaySelectedDoubleClickClosure :: CalendarDaySelectedDoubleClickCallback -> IO Closure
calendarDaySelectedDoubleClickClosure cb = newCClosure =<< mkCalendarDaySelectedDoubleClickCallback wrapped
where wrapped = calendarDaySelectedDoubleClickCallbackWrapper cb
calendarDaySelectedDoubleClickCallbackWrapper ::
CalendarDaySelectedDoubleClickCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarDaySelectedDoubleClickCallbackWrapper _cb _ _ = do
_cb
onCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
onCalendarDaySelectedDoubleClick obj cb = liftIO $ connectCalendarDaySelectedDoubleClick obj cb SignalConnectBefore
afterCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) => a -> CalendarDaySelectedDoubleClickCallback -> m SignalHandlerId
afterCalendarDaySelectedDoubleClick obj cb = connectCalendarDaySelectedDoubleClick obj cb SignalConnectAfter
connectCalendarDaySelectedDoubleClick :: (GObject a, MonadIO m) =>
a -> CalendarDaySelectedDoubleClickCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarDaySelectedDoubleClick obj cb after = liftIO $ do
cb' <- mkCalendarDaySelectedDoubleClickCallback (calendarDaySelectedDoubleClickCallbackWrapper cb)
connectSignalFunPtr obj "day-selected-double-click" cb' after
type CalendarMonthChangedCallback =
IO ()
noCalendarMonthChangedCallback :: Maybe CalendarMonthChangedCallback
noCalendarMonthChangedCallback = Nothing
type CalendarMonthChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarMonthChangedCallback :: CalendarMonthChangedCallbackC -> IO (FunPtr CalendarMonthChangedCallbackC)
calendarMonthChangedClosure :: CalendarMonthChangedCallback -> IO Closure
calendarMonthChangedClosure cb = newCClosure =<< mkCalendarMonthChangedCallback wrapped
where wrapped = calendarMonthChangedCallbackWrapper cb
calendarMonthChangedCallbackWrapper ::
CalendarMonthChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarMonthChangedCallbackWrapper _cb _ _ = do
_cb
onCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
onCalendarMonthChanged obj cb = liftIO $ connectCalendarMonthChanged obj cb SignalConnectBefore
afterCalendarMonthChanged :: (GObject a, MonadIO m) => a -> CalendarMonthChangedCallback -> m SignalHandlerId
afterCalendarMonthChanged obj cb = connectCalendarMonthChanged obj cb SignalConnectAfter
connectCalendarMonthChanged :: (GObject a, MonadIO m) =>
a -> CalendarMonthChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarMonthChanged obj cb after = liftIO $ do
cb' <- mkCalendarMonthChangedCallback (calendarMonthChangedCallbackWrapper cb)
connectSignalFunPtr obj "month-changed" cb' after
type CalendarNextMonthCallback =
IO ()
noCalendarNextMonthCallback :: Maybe CalendarNextMonthCallback
noCalendarNextMonthCallback = Nothing
type CalendarNextMonthCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarNextMonthCallback :: CalendarNextMonthCallbackC -> IO (FunPtr CalendarNextMonthCallbackC)
calendarNextMonthClosure :: CalendarNextMonthCallback -> IO Closure
calendarNextMonthClosure cb = newCClosure =<< mkCalendarNextMonthCallback wrapped
where wrapped = calendarNextMonthCallbackWrapper cb
calendarNextMonthCallbackWrapper ::
CalendarNextMonthCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarNextMonthCallbackWrapper _cb _ _ = do
_cb
onCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
onCalendarNextMonth obj cb = liftIO $ connectCalendarNextMonth obj cb SignalConnectBefore
afterCalendarNextMonth :: (GObject a, MonadIO m) => a -> CalendarNextMonthCallback -> m SignalHandlerId
afterCalendarNextMonth obj cb = connectCalendarNextMonth obj cb SignalConnectAfter
connectCalendarNextMonth :: (GObject a, MonadIO m) =>
a -> CalendarNextMonthCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarNextMonth obj cb after = liftIO $ do
cb' <- mkCalendarNextMonthCallback (calendarNextMonthCallbackWrapper cb)
connectSignalFunPtr obj "next-month" cb' after
type CalendarNextYearCallback =
IO ()
noCalendarNextYearCallback :: Maybe CalendarNextYearCallback
noCalendarNextYearCallback = Nothing
type CalendarNextYearCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarNextYearCallback :: CalendarNextYearCallbackC -> IO (FunPtr CalendarNextYearCallbackC)
calendarNextYearClosure :: CalendarNextYearCallback -> IO Closure
calendarNextYearClosure cb = newCClosure =<< mkCalendarNextYearCallback wrapped
where wrapped = calendarNextYearCallbackWrapper cb
calendarNextYearCallbackWrapper ::
CalendarNextYearCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarNextYearCallbackWrapper _cb _ _ = do
_cb
onCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
onCalendarNextYear obj cb = liftIO $ connectCalendarNextYear obj cb SignalConnectBefore
afterCalendarNextYear :: (GObject a, MonadIO m) => a -> CalendarNextYearCallback -> m SignalHandlerId
afterCalendarNextYear obj cb = connectCalendarNextYear obj cb SignalConnectAfter
connectCalendarNextYear :: (GObject a, MonadIO m) =>
a -> CalendarNextYearCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarNextYear obj cb after = liftIO $ do
cb' <- mkCalendarNextYearCallback (calendarNextYearCallbackWrapper cb)
connectSignalFunPtr obj "next-year" cb' after
type CalendarPrevMonthCallback =
IO ()
noCalendarPrevMonthCallback :: Maybe CalendarPrevMonthCallback
noCalendarPrevMonthCallback = Nothing
type CalendarPrevMonthCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarPrevMonthCallback :: CalendarPrevMonthCallbackC -> IO (FunPtr CalendarPrevMonthCallbackC)
calendarPrevMonthClosure :: CalendarPrevMonthCallback -> IO Closure
calendarPrevMonthClosure cb = newCClosure =<< mkCalendarPrevMonthCallback wrapped
where wrapped = calendarPrevMonthCallbackWrapper cb
calendarPrevMonthCallbackWrapper ::
CalendarPrevMonthCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarPrevMonthCallbackWrapper _cb _ _ = do
_cb
onCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
onCalendarPrevMonth obj cb = liftIO $ connectCalendarPrevMonth obj cb SignalConnectBefore
afterCalendarPrevMonth :: (GObject a, MonadIO m) => a -> CalendarPrevMonthCallback -> m SignalHandlerId
afterCalendarPrevMonth obj cb = connectCalendarPrevMonth obj cb SignalConnectAfter
connectCalendarPrevMonth :: (GObject a, MonadIO m) =>
a -> CalendarPrevMonthCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarPrevMonth obj cb after = liftIO $ do
cb' <- mkCalendarPrevMonthCallback (calendarPrevMonthCallbackWrapper cb)
connectSignalFunPtr obj "prev-month" cb' after
type CalendarPrevYearCallback =
IO ()
noCalendarPrevYearCallback :: Maybe CalendarPrevYearCallback
noCalendarPrevYearCallback = Nothing
type CalendarPrevYearCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCalendarPrevYearCallback :: CalendarPrevYearCallbackC -> IO (FunPtr CalendarPrevYearCallbackC)
calendarPrevYearClosure :: CalendarPrevYearCallback -> IO Closure
calendarPrevYearClosure cb = newCClosure =<< mkCalendarPrevYearCallback wrapped
where wrapped = calendarPrevYearCallbackWrapper cb
calendarPrevYearCallbackWrapper ::
CalendarPrevYearCallback ->
Ptr () ->
Ptr () ->
IO ()
calendarPrevYearCallbackWrapper _cb _ _ = do
_cb
onCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
onCalendarPrevYear obj cb = liftIO $ connectCalendarPrevYear obj cb SignalConnectBefore
afterCalendarPrevYear :: (GObject a, MonadIO m) => a -> CalendarPrevYearCallback -> m SignalHandlerId
afterCalendarPrevYear obj cb = connectCalendarPrevYear obj cb SignalConnectAfter
connectCalendarPrevYear :: (GObject a, MonadIO m) =>
a -> CalendarPrevYearCallback -> SignalConnectMode -> m SignalHandlerId
connectCalendarPrevYear obj cb after = liftIO $ do
cb' <- mkCalendarPrevYearCallback (calendarPrevYearCallbackWrapper cb)
connectSignalFunPtr obj "prev-year" cb' after
getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32
getCalendarDay obj = liftIO $ getObjectPropertyCInt obj "day"
setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()
setCalendarDay obj val = liftIO $ setObjectPropertyCInt obj "day" val
constructCalendarDay :: Int32 -> IO ([Char], GValue)
constructCalendarDay val = constructObjectPropertyCInt "day" val
data CalendarDayPropertyInfo
instance AttrInfo CalendarDayPropertyInfo where
type AttrAllowedOps CalendarDayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarDayPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CalendarDayPropertyInfo = CalendarK
type AttrGetType CalendarDayPropertyInfo = Int32
type AttrLabel CalendarDayPropertyInfo = "Calendar::day"
attrGet _ = getCalendarDay
attrSet _ = setCalendarDay
attrConstruct _ = constructCalendarDay
getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32
getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyCInt obj "detail-height-rows"
setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()
setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyCInt obj "detail-height-rows" val
constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue)
constructCalendarDetailHeightRows val = constructObjectPropertyCInt "detail-height-rows" val
data CalendarDetailHeightRowsPropertyInfo
instance AttrInfo CalendarDetailHeightRowsPropertyInfo where
type AttrAllowedOps CalendarDetailHeightRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarDetailHeightRowsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CalendarDetailHeightRowsPropertyInfo = CalendarK
type AttrGetType CalendarDetailHeightRowsPropertyInfo = Int32
type AttrLabel CalendarDetailHeightRowsPropertyInfo = "Calendar::detail-height-rows"
attrGet _ = getCalendarDetailHeightRows
attrSet _ = setCalendarDetailHeightRows
attrConstruct _ = constructCalendarDetailHeightRows
getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32
getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyCInt obj "detail-width-chars"
setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()
setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyCInt obj "detail-width-chars" val
constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue)
constructCalendarDetailWidthChars val = constructObjectPropertyCInt "detail-width-chars" val
data CalendarDetailWidthCharsPropertyInfo
instance AttrInfo CalendarDetailWidthCharsPropertyInfo where
type AttrAllowedOps CalendarDetailWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarDetailWidthCharsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CalendarDetailWidthCharsPropertyInfo = CalendarK
type AttrGetType CalendarDetailWidthCharsPropertyInfo = Int32
type AttrLabel CalendarDetailWidthCharsPropertyInfo = "Calendar::detail-width-chars"
attrGet _ = getCalendarDetailWidthChars
attrSet _ = setCalendarDetailWidthChars
attrConstruct _ = constructCalendarDetailWidthChars
getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32
getCalendarMonth obj = liftIO $ getObjectPropertyCInt obj "month"
setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()
setCalendarMonth obj val = liftIO $ setObjectPropertyCInt obj "month" val
constructCalendarMonth :: Int32 -> IO ([Char], GValue)
constructCalendarMonth val = constructObjectPropertyCInt "month" val
data CalendarMonthPropertyInfo
instance AttrInfo CalendarMonthPropertyInfo where
type AttrAllowedOps CalendarMonthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarMonthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CalendarMonthPropertyInfo = CalendarK
type AttrGetType CalendarMonthPropertyInfo = Int32
type AttrLabel CalendarMonthPropertyInfo = "Calendar::month"
attrGet _ = getCalendarMonth
attrSet _ = setCalendarMonth
attrConstruct _ = constructCalendarMonth
getCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> m Bool
getCalendarNoMonthChange obj = liftIO $ getObjectPropertyBool obj "no-month-change"
setCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> Bool -> m ()
setCalendarNoMonthChange obj val = liftIO $ setObjectPropertyBool obj "no-month-change" val
constructCalendarNoMonthChange :: Bool -> IO ([Char], GValue)
constructCalendarNoMonthChange val = constructObjectPropertyBool "no-month-change" val
data CalendarNoMonthChangePropertyInfo
instance AttrInfo CalendarNoMonthChangePropertyInfo where
type AttrAllowedOps CalendarNoMonthChangePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarNoMonthChangePropertyInfo = (~) Bool
type AttrBaseTypeConstraint CalendarNoMonthChangePropertyInfo = CalendarK
type AttrGetType CalendarNoMonthChangePropertyInfo = Bool
type AttrLabel CalendarNoMonthChangePropertyInfo = "Calendar::no-month-change"
attrGet _ = getCalendarNoMonthChange
attrSet _ = setCalendarNoMonthChange
attrConstruct _ = constructCalendarNoMonthChange
getCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> m Bool
getCalendarShowDayNames obj = liftIO $ getObjectPropertyBool obj "show-day-names"
setCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> Bool -> m ()
setCalendarShowDayNames obj val = liftIO $ setObjectPropertyBool obj "show-day-names" val
constructCalendarShowDayNames :: Bool -> IO ([Char], GValue)
constructCalendarShowDayNames val = constructObjectPropertyBool "show-day-names" val
data CalendarShowDayNamesPropertyInfo
instance AttrInfo CalendarShowDayNamesPropertyInfo where
type AttrAllowedOps CalendarShowDayNamesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarShowDayNamesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CalendarShowDayNamesPropertyInfo = CalendarK
type AttrGetType CalendarShowDayNamesPropertyInfo = Bool
type AttrLabel CalendarShowDayNamesPropertyInfo = "Calendar::show-day-names"
attrGet _ = getCalendarShowDayNames
attrSet _ = setCalendarShowDayNames
attrConstruct _ = constructCalendarShowDayNames
getCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> m Bool
getCalendarShowDetails obj = liftIO $ getObjectPropertyBool obj "show-details"
setCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> Bool -> m ()
setCalendarShowDetails obj val = liftIO $ setObjectPropertyBool obj "show-details" val
constructCalendarShowDetails :: Bool -> IO ([Char], GValue)
constructCalendarShowDetails val = constructObjectPropertyBool "show-details" val
data CalendarShowDetailsPropertyInfo
instance AttrInfo CalendarShowDetailsPropertyInfo where
type AttrAllowedOps CalendarShowDetailsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarShowDetailsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CalendarShowDetailsPropertyInfo = CalendarK
type AttrGetType CalendarShowDetailsPropertyInfo = Bool
type AttrLabel CalendarShowDetailsPropertyInfo = "Calendar::show-details"
attrGet _ = getCalendarShowDetails
attrSet _ = setCalendarShowDetails
attrConstruct _ = constructCalendarShowDetails
getCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> m Bool
getCalendarShowHeading obj = liftIO $ getObjectPropertyBool obj "show-heading"
setCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> Bool -> m ()
setCalendarShowHeading obj val = liftIO $ setObjectPropertyBool obj "show-heading" val
constructCalendarShowHeading :: Bool -> IO ([Char], GValue)
constructCalendarShowHeading val = constructObjectPropertyBool "show-heading" val
data CalendarShowHeadingPropertyInfo
instance AttrInfo CalendarShowHeadingPropertyInfo where
type AttrAllowedOps CalendarShowHeadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarShowHeadingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CalendarShowHeadingPropertyInfo = CalendarK
type AttrGetType CalendarShowHeadingPropertyInfo = Bool
type AttrLabel CalendarShowHeadingPropertyInfo = "Calendar::show-heading"
attrGet _ = getCalendarShowHeading
attrSet _ = setCalendarShowHeading
attrConstruct _ = constructCalendarShowHeading
getCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> m Bool
getCalendarShowWeekNumbers obj = liftIO $ getObjectPropertyBool obj "show-week-numbers"
setCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> Bool -> m ()
setCalendarShowWeekNumbers obj val = liftIO $ setObjectPropertyBool obj "show-week-numbers" val
constructCalendarShowWeekNumbers :: Bool -> IO ([Char], GValue)
constructCalendarShowWeekNumbers val = constructObjectPropertyBool "show-week-numbers" val
data CalendarShowWeekNumbersPropertyInfo
instance AttrInfo CalendarShowWeekNumbersPropertyInfo where
type AttrAllowedOps CalendarShowWeekNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarShowWeekNumbersPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CalendarShowWeekNumbersPropertyInfo = CalendarK
type AttrGetType CalendarShowWeekNumbersPropertyInfo = Bool
type AttrLabel CalendarShowWeekNumbersPropertyInfo = "Calendar::show-week-numbers"
attrGet _ = getCalendarShowWeekNumbers
attrSet _ = setCalendarShowWeekNumbers
attrConstruct _ = constructCalendarShowWeekNumbers
getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32
getCalendarYear obj = liftIO $ getObjectPropertyCInt obj "year"
setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m ()
setCalendarYear obj val = liftIO $ setObjectPropertyCInt obj "year" val
constructCalendarYear :: Int32 -> IO ([Char], GValue)
constructCalendarYear val = constructObjectPropertyCInt "year" val
data CalendarYearPropertyInfo
instance AttrInfo CalendarYearPropertyInfo where
type AttrAllowedOps CalendarYearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CalendarYearPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CalendarYearPropertyInfo = CalendarK
type AttrGetType CalendarYearPropertyInfo = Int32
type AttrLabel CalendarYearPropertyInfo = "Calendar::year"
attrGet _ = getCalendarYear
attrSet _ = setCalendarYear
attrConstruct _ = constructCalendarYear
type instance AttributeList Calendar = CalendarAttributeList
type CalendarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detail-height-rows", CalendarDetailHeightRowsPropertyInfo), '("detail-width-chars", CalendarDetailWidthCharsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-month-change", CalendarNoMonthChangePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-day-names", CalendarShowDayNamesPropertyInfo), '("show-details", CalendarShowDetailsPropertyInfo), '("show-heading", CalendarShowHeadingPropertyInfo), '("show-week-numbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)])
data CalendarDaySelectedSignalInfo
instance SignalInfo CalendarDaySelectedSignalInfo where
type HaskellCallbackType CalendarDaySelectedSignalInfo = CalendarDaySelectedCallback
connectSignal _ = connectCalendarDaySelected
data CalendarDaySelectedDoubleClickSignalInfo
instance SignalInfo CalendarDaySelectedDoubleClickSignalInfo where
type HaskellCallbackType CalendarDaySelectedDoubleClickSignalInfo = CalendarDaySelectedDoubleClickCallback
connectSignal _ = connectCalendarDaySelectedDoubleClick
data CalendarMonthChangedSignalInfo
instance SignalInfo CalendarMonthChangedSignalInfo where
type HaskellCallbackType CalendarMonthChangedSignalInfo = CalendarMonthChangedCallback
connectSignal _ = connectCalendarMonthChanged
data CalendarNextMonthSignalInfo
instance SignalInfo CalendarNextMonthSignalInfo where
type HaskellCallbackType CalendarNextMonthSignalInfo = CalendarNextMonthCallback
connectSignal _ = connectCalendarNextMonth
data CalendarNextYearSignalInfo
instance SignalInfo CalendarNextYearSignalInfo where
type HaskellCallbackType CalendarNextYearSignalInfo = CalendarNextYearCallback
connectSignal _ = connectCalendarNextYear
data CalendarPrevMonthSignalInfo
instance SignalInfo CalendarPrevMonthSignalInfo where
type HaskellCallbackType CalendarPrevMonthSignalInfo = CalendarPrevMonthCallback
connectSignal _ = connectCalendarPrevMonth
data CalendarPrevYearSignalInfo
instance SignalInfo CalendarPrevYearSignalInfo where
type HaskellCallbackType CalendarPrevYearSignalInfo = CalendarPrevYearCallback
connectSignal _ = connectCalendarPrevYear
type instance SignalList Calendar = CalendarSignalList
type CalendarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("day-selected", CalendarDaySelectedSignalInfo), '("day-selected-double-click", CalendarDaySelectedDoubleClickSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("month-changed", CalendarMonthChangedSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-month", CalendarNextMonthSignalInfo), '("next-year", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prev-month", CalendarPrevMonthSignalInfo), '("prev-year", CalendarPrevYearSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_calendar_new" gtk_calendar_new ::
IO (Ptr Calendar)
calendarNew ::
(MonadIO m) =>
m Calendar
calendarNew = liftIO $ do
result <- gtk_calendar_new
checkUnexpectedReturnNULL "gtk_calendar_new" result
result' <- (newObject Calendar) result
return result'
foreign import ccall "gtk_calendar_clear_marks" gtk_calendar_clear_marks ::
Ptr Calendar ->
IO ()
calendarClearMarks ::
(MonadIO m, CalendarK a) =>
a ->
m ()
calendarClearMarks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_clear_marks _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date ::
Ptr Calendar ->
Ptr Word32 ->
Ptr Word32 ->
Ptr Word32 ->
IO ()
calendarGetDate ::
(MonadIO m, CalendarK a) =>
a ->
m (Word32,Word32,Word32)
calendarGetDate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
year <- allocMem :: IO (Ptr Word32)
month <- allocMem :: IO (Ptr Word32)
day <- allocMem :: IO (Ptr Word32)
gtk_calendar_get_date _obj' year month day
year' <- peek year
month' <- peek month
day' <- peek day
touchManagedPtr _obj
freeMem year
freeMem month
freeMem day
return (year', month', day')
foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked ::
Ptr Calendar ->
Word32 ->
IO CInt
calendarGetDayIsMarked ::
(MonadIO m, CalendarK a) =>
a ->
Word32 ->
m Bool
calendarGetDayIsMarked _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_day_is_marked _obj' day
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_calendar_get_detail_height_rows" gtk_calendar_get_detail_height_rows ::
Ptr Calendar ->
IO Int32
calendarGetDetailHeightRows ::
(MonadIO m, CalendarK a) =>
a ->
m Int32
calendarGetDetailHeightRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_detail_height_rows _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_calendar_get_detail_width_chars" gtk_calendar_get_detail_width_chars ::
Ptr Calendar ->
IO Int32
calendarGetDetailWidthChars ::
(MonadIO m, CalendarK a) =>
a ->
m Int32
calendarGetDetailWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_detail_width_chars _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_calendar_get_display_options" gtk_calendar_get_display_options ::
Ptr Calendar ->
IO CUInt
calendarGetDisplayOptions ::
(MonadIO m, CalendarK a) =>
a ->
m [CalendarDisplayOptions]
calendarGetDisplayOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_calendar_get_display_options _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarMarkDay ::
(MonadIO m, CalendarK a) =>
a ->
Word32 ->
m ()
calendarMarkDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_mark_day _obj' day
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarSelectDay ::
(MonadIO m, CalendarK a) =>
a ->
Word32 ->
m ()
calendarSelectDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_select_day _obj' day
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_select_month" gtk_calendar_select_month ::
Ptr Calendar ->
Word32 ->
Word32 ->
IO ()
calendarSelectMonth ::
(MonadIO m, CalendarK a) =>
a ->
Word32 ->
Word32 ->
m ()
calendarSelectMonth _obj month year = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_select_month _obj' month year
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func ::
Ptr Calendar ->
FunPtr CalendarDetailFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
IO ()
calendarSetDetailFunc ::
(MonadIO m, CalendarK a) =>
a ->
CalendarDetailFunc ->
m ()
calendarSetDetailFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCalendarDetailFunc (calendarDetailFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_calendar_set_detail_func _obj' func' data_ destroy
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetDetailHeightRows ::
(MonadIO m, CalendarK a) =>
a ->
Int32 ->
m ()
calendarSetDetailHeightRows _obj rows = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_set_detail_height_rows _obj' rows
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars ::
Ptr Calendar ->
Int32 ->
IO ()
calendarSetDetailWidthChars ::
(MonadIO m, CalendarK a) =>
a ->
Int32 ->
m ()
calendarSetDetailWidthChars _obj chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_set_detail_width_chars _obj' chars
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_set_display_options" gtk_calendar_set_display_options ::
Ptr Calendar ->
CUInt ->
IO ()
calendarSetDisplayOptions ::
(MonadIO m, CalendarK a) =>
a ->
[CalendarDisplayOptions] ->
m ()
calendarSetDisplayOptions _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
gtk_calendar_set_display_options _obj' flags'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day ::
Ptr Calendar ->
Word32 ->
IO ()
calendarUnmarkDay ::
(MonadIO m, CalendarK a) =>
a ->
Word32 ->
m ()
calendarUnmarkDay _obj day = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_calendar_unmark_day _obj' day
touchManagedPtr _obj
return ()