;; -*- mode: Scheme; tab-width: 2; -*- ;;

(define-foreign-type nonnull-object (nonnull-c-pointer "AG_Object")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type object (c-pointer "AG_Object")
  (object->pointer #f)
  (pointer->object #f))

(define-foreign-type nonnull-class (nonnull-c-pointer "AG_ObjectClass")
  (class->pointer #t)
  (pointer->class #t))

(define-foreign-type class (c-pointer "AG_ObjectClass")
  (class->pointer #f)
  (pointer->class #f))

(define-foreign-type nonnull-widget (nonnull-c-pointer "AG_Widget")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type widget (c-pointer "AG_Widget")
  (object->pointer #f)
  (pointer->object #f))

(define-foreign-type nonnull-window (nonnull-c-pointer "AG_Window")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type window (c-pointer "AG_Window")
  (object->pointer #f)
  (pointer->object #f))

(define-foreign-type nonnull-box (nonnull-c-pointer "AG_Box")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type box (c-pointer "AG_Box")
  (object->pointer #f)
  (pointer->object #f))

(define-foreign-type nonnull-radio (nonnull-c-pointer "AG_Radio")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type radio (c-pointer "AG_Radio")
  (object->pointer #f)
  (pointer->object #f))

(define-foreign-type nonnull-textbox (nonnull-c-pointer "AG_Textbox")
  (object->pointer #t)
  (pointer->object #t))

(define-foreign-type textbox (c-pointer "AG_Textbox")
  (object->pointer #f)
  (pointer->object #f))

;; vim:set ft=scheme ts=2 sts=2 sw=2 ai: ;;