3 (defcfun (calendar-mark-day "gtk_calendar_mark_day") :boolean
7 (export 'calendar-mark-day)
9 (defcfun (calendar-unmark-day "gtk_calendar_unmark_day") :boolean
13 (export 'calendar-unmark-day)
15 (defcfun (calendar-clear-marks "gtk_calendar_clear_marks") :void
18 (export 'calendar-clear-marks)
20 (defcallback gtk-calendar-detail-func-callback (g-string :free-to-foreign nil :free-from-foreign nil)
21 ((calendar g-object) (year :uint) (month :uint) (day :uint) (data :pointer))
23 (or (funcall (get-stable-pointer-value data)
24 calendar year month day)
26 (return-null () (null-pointer))))
28 (defcfun gtk-calendar-set-detail-func :void
32 (destroy-notify :pointer))
34 (defun calendar-set-detail-function (calendar function)
35 (gtk-calendar-set-detail-func calendar
36 (callback gtk-calendar-detail-func-callback)
37 (allocate-stable-pointer function)
38 (callback stable-pointer-free-destroy-notify-callback)))