gtk/gtk.calendar.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (calendar-mark-day "gtk_calendar_mark_day") :boolean
   4   (calendar g-object)
   5   (day :uint))
   6
   7 (export 'calendar-mark-day)
   8
   9 (defcfun (calendar-unmark-day "gtk_calendar_unmark_day") :boolean
  10   (calendar g-object)
  11   (day :uint))
  12
  13 (export 'calendar-unmark-day)
  14
  15 (defcfun (calendar-clear-marks "gtk_calendar_clear_marks") :void
  16   (calendar g-object))
  17
  18 (export 'calendar-clear-marks)
  19
  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))
  22   (restart-case
  23       (or (funcall (get-stable-pointer-value data)
  24                    calendar year month day)
  25           (null-pointer))
  26     (return-null () (null-pointer))))
  27
  28 (defcfun gtk-calendar-set-detail-func :void
  29   (calendar g-object)
  30   (func :pointer)
  31   (data :pointer)
  32   (destroy-notify :pointer))
  33
  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)))