{-# LINE 2 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
module Graphics.UI.Gtk.Misc.Calendar (
Calendar,
CalendarClass,
castToCalendar, gTypeCalendar,
toCalendar,
CalendarDisplayOptions(..),
calendarNew,
calendarSelectMonth,
calendarSelectDay,
calendarMarkDay,
calendarUnmarkDay,
calendarClearMarks,
calendarSetDisplayOptions,
calendarGetDisplayOptions,
calendarGetDate,
calendarYear,
calendarMonth,
calendarDay,
calendarShowHeading,
calendarShowDayNames,
calendarNoMonthChange,
calendarShowWeekNumbers,
onDaySelected,
afterDaySelected,
onDaySelectedDoubleClick,
afterDaySelectedDoubleClick,
onMonthChanged,
afterMonthChanged,
onNextMonth,
afterNextMonth,
onNextYear,
afterNextYear,
onPrevMonth,
afterPrevMonth,
onPrevYear,
afterPrevYear,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Flags (fromFlags, toFlags)
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 126 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 127 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
import Graphics.UI.Gtk.General.Enums (CalendarDisplayOptions(..))
{-# LINE 130 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
calendarNew :: IO Calendar
calendarNew :: IO Calendar
calendarNew =
(ForeignPtr Calendar -> Calendar, FinalizerPtr Calendar)
-> IO (Ptr Calendar) -> IO Calendar
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Calendar -> Calendar, FinalizerPtr Calendar)
forall {a}. (ForeignPtr Calendar -> Calendar, FinalizerPtr a)
mkCalendar (IO (Ptr Calendar) -> IO Calendar)
-> IO (Ptr Calendar) -> IO Calendar
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Calendar)
-> IO (Ptr Widget) -> IO (Ptr Calendar)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Calendar
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Calendar) (IO (Ptr Widget) -> IO (Ptr Calendar))
-> IO (Ptr Widget) -> IO (Ptr Calendar)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_calendar_new
{-# LINE 141 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
calendarSelectMonth :: CalendarClass self => self
-> Int
-> Int
-> IO ()
calendarSelectMonth :: forall self. CalendarClass self => self -> Int -> Int -> IO ()
calendarSelectMonth self
self Int
month Int
year =
(() -> ()) -> IO () -> IO ()
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (() -> () -> ()
forall a b. a -> b -> a
const ()) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
(\(Calendar ForeignPtr Calendar
arg1) CUInt
arg2 CUInt
arg3 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> CUInt -> CUInt -> IO ()
gtk_calendar_select_month Ptr Calendar
argPtr1 CUInt
arg2 CUInt
arg3)
{-# LINE 154 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
month)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
year)
calendarSelectDay :: CalendarClass self => self
-> Int
-> IO ()
calendarSelectDay :: forall self. CalendarClass self => self -> Int -> IO ()
calendarSelectDay self
self Int
day =
(\(Calendar ForeignPtr Calendar
arg1) CUInt
arg2 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> CUInt -> IO ()
gtk_calendar_select_day Ptr Calendar
argPtr1 CUInt
arg2)
{-# LINE 166 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
day)
calendarMarkDay :: CalendarClass self => self
-> Int
-> IO ()
calendarMarkDay :: forall self. CalendarClass self => self -> Int -> IO ()
calendarMarkDay self
self Int
day =
(() -> ()) -> IO () -> IO ()
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (() -> () -> ()
forall a b. a -> b -> a
const ()) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
(\(Calendar ForeignPtr Calendar
arg1) CUInt
arg2 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> CUInt -> IO ()
gtk_calendar_mark_day Ptr Calendar
argPtr1 CUInt
arg2)
{-# LINE 177 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
day)
calendarUnmarkDay :: CalendarClass self => self
-> Int
-> IO ()
calendarUnmarkDay :: forall self. CalendarClass self => self -> Int -> IO ()
calendarUnmarkDay self
self Int
day =
(() -> ()) -> IO () -> IO ()
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (() -> () -> ()
forall a b. a -> b -> a
const ()) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
(\(Calendar ForeignPtr Calendar
arg1) CUInt
arg2 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> CUInt -> IO ()
gtk_calendar_unmark_day Ptr Calendar
argPtr1 CUInt
arg2)
{-# LINE 188 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
day)
calendarClearMarks :: CalendarClass self => self -> IO ()
calendarClearMarks :: forall self. CalendarClass self => self -> IO ()
calendarClearMarks self
self =
(\(Calendar ForeignPtr Calendar
arg1) -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> IO ()
gtk_calendar_clear_marks Ptr Calendar
argPtr1)
{-# LINE 196 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
calendarSetDisplayOptions :: CalendarClass self => self
-> [CalendarDisplayOptions]
-> IO ()
calendarSetDisplayOptions :: forall self.
CalendarClass self =>
self -> [CalendarDisplayOptions] -> IO ()
calendarSetDisplayOptions self
self [CalendarDisplayOptions]
flags =
(\(Calendar ForeignPtr Calendar
arg1) CInt
arg2 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> CInt -> IO ()
gtk_calendar_set_display_options Ptr Calendar
argPtr1 CInt
arg2)
{-# LINE 209 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> ([CalendarDisplayOptions] -> Int)
-> [CalendarDisplayOptions]
-> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [CalendarDisplayOptions] -> Int
forall a. Flags a => [a] -> Int
fromFlags) [CalendarDisplayOptions]
flags)
calendarGetDisplayOptions :: CalendarClass self => self
-> IO [CalendarDisplayOptions]
calendarGetDisplayOptions :: forall self.
CalendarClass self =>
self -> IO [CalendarDisplayOptions]
calendarGetDisplayOptions self
self =
(CInt -> [CalendarDisplayOptions])
-> IO CInt -> IO [CalendarDisplayOptions]
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> [CalendarDisplayOptions]
forall a. Flags a => Int -> [a]
toFlags (Int -> [CalendarDisplayOptions])
-> (CInt -> Int) -> CInt -> [CalendarDisplayOptions]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO [CalendarDisplayOptions])
-> IO CInt -> IO [CalendarDisplayOptions]
forall a b. (a -> b) -> a -> b
$
(\(Calendar ForeignPtr Calendar
arg1) -> ForeignPtr Calendar -> (Ptr Calendar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO CInt) -> IO CInt)
-> (Ptr Calendar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> IO CInt
gtk_calendar_get_display_options Ptr Calendar
argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
{-# LINE 242 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
calendarGetDate :: CalendarClass self => self
-> IO (Int,Int,Int)
calendarGetDate :: forall self. CalendarClass self => self -> IO (Int, Int, Int)
calendarGetDate self
self =
(Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int))
-> (Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CUInt
yearPtr ->
(Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int))
-> (Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CUInt
monthPtr ->
(Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int))
-> (Ptr CUInt -> IO (Int, Int, Int)) -> IO (Int, Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CUInt
dayPtr -> do
(\(Calendar ForeignPtr Calendar
arg1) Ptr CUInt
arg2 Ptr CUInt
arg3 Ptr CUInt
arg4 -> ForeignPtr Calendar -> (Ptr Calendar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Calendar
arg1 ((Ptr Calendar -> IO ()) -> IO ())
-> (Ptr Calendar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Calendar
argPtr1 ->Ptr Calendar -> Ptr CUInt -> Ptr CUInt -> Ptr CUInt -> IO ()
gtk_calendar_get_date Ptr Calendar
argPtr1 Ptr CUInt
arg2 Ptr CUInt
arg3 Ptr CUInt
arg4)
{-# LINE 251 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
(toCalendar self)
Ptr CUInt
yearPtr
Ptr CUInt
monthPtr
Ptr CUInt
dayPtr
Int
year <- (CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$ Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
yearPtr
Int
month <- (CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$ Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
monthPtr
Int
day <- (CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$ Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
dayPtr
(Int, Int, Int) -> IO (Int, Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int
year,Int
month,Int
day)
{-# LINE 282 "./Graphics/UI/Gtk/Misc/Calendar.chs" #-}
calendarYear :: CalendarClass self => Attr self Int
calendarYear :: forall self. CalendarClass self => Attr self Int
calendarYear = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"year"
calendarMonth :: CalendarClass self => Attr self Int
calendarMonth :: forall self. CalendarClass self => Attr self Int
calendarMonth = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"month"
calendarDay :: CalendarClass self => Attr self Int
calendarDay :: forall self. CalendarClass self => Attr self Int
calendarDay = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"day"
calendarShowHeading :: CalendarClass self => Attr self Bool
calendarShowHeading :: forall self. CalendarClass self => Attr self Bool
calendarShowHeading = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"show-heading"
calendarShowDayNames :: CalendarClass self => Attr self Bool
calendarShowDayNames :: forall self. CalendarClass self => Attr self Bool
calendarShowDayNames = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"show-day-names"
calendarNoMonthChange :: CalendarClass self => Attr self Bool
calendarNoMonthChange :: forall self. CalendarClass self => Attr self Bool
calendarNoMonthChange = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"no-month-change"
calendarShowWeekNumbers :: CalendarClass self => Attr self Bool
calendarShowWeekNumbers :: forall self. CalendarClass self => Attr self Bool
calendarShowWeekNumbers = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"show-week-numbers"
onDaySelected, afterDaySelected :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onDaySelected :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onDaySelected = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"day-selected" Bool
False
afterDaySelected :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterDaySelected = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"day-selected" Bool
True
onDaySelectedDoubleClick, afterDaySelectedDoubleClick :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onDaySelectedDoubleClick :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onDaySelectedDoubleClick =
String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"day-selected-double-click" Bool
False
afterDaySelectedDoubleClick :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterDaySelectedDoubleClick =
String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"day-selected-double-click" Bool
True
onMonthChanged, afterMonthChanged :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onMonthChanged :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onMonthChanged = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"month-changed" Bool
False
afterMonthChanged :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterMonthChanged = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"month-changed" Bool
True
onNextMonth, afterNextMonth :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onNextMonth :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onNextMonth = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"next-month" Bool
False
afterNextMonth :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterNextMonth = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"next-month" Bool
True
onNextYear, afterNextYear :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onNextYear :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onNextYear = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"next-year" Bool
False
afterNextYear :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterNextYear = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"next-year" Bool
True
onPrevMonth, afterPrevMonth :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onPrevMonth :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onPrevMonth = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"prev-month" Bool
False
afterPrevMonth :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterPrevMonth = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"prev-month" Bool
True
onPrevYear, afterPrevYear :: CalendarClass self => self
-> IO ()
-> IO (ConnectId self)
onPrevYear :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
onPrevYear = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"prev-year" Bool
False
afterPrevYear :: forall self.
CalendarClass self =>
self -> IO () -> IO (ConnectId self)
afterPrevYear = String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"prev-year" Bool
True
foreign import ccall unsafe "gtk_calendar_new"
gtk_calendar_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_calendar_select_month"
gtk_calendar_select_month :: ((Ptr Calendar) -> (CUInt -> (CUInt -> (IO ()))))
foreign import ccall safe "gtk_calendar_select_day"
gtk_calendar_select_day :: ((Ptr Calendar) -> (CUInt -> (IO ())))
foreign import ccall safe "gtk_calendar_mark_day"
gtk_calendar_mark_day :: ((Ptr Calendar) -> (CUInt -> (IO ())))
foreign import ccall safe "gtk_calendar_unmark_day"
gtk_calendar_unmark_day :: ((Ptr Calendar) -> (CUInt -> (IO ())))
foreign import ccall safe "gtk_calendar_clear_marks"
gtk_calendar_clear_marks :: ((Ptr Calendar) -> (IO ()))
foreign import ccall safe "gtk_calendar_set_display_options"
gtk_calendar_set_display_options :: ((Ptr Calendar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_calendar_get_display_options"
gtk_calendar_get_display_options :: ((Ptr Calendar) -> (IO CInt))
foreign import ccall unsafe "gtk_calendar_get_date"
gtk_calendar_get_date :: ((Ptr Calendar) -> ((Ptr CUInt) -> ((Ptr CUInt) -> ((Ptr CUInt) -> (IO ())))))