;; -*- scheme -*-
; object definitions ...
;; Enumerations and flags ...


;; From ../../../include/gcw.h

(define-function gcw_use_text
  (c-name "gcw_use_text")
  (return-type "none")
  (parameters
    '("gint32" "use_text")
  )
)

(define-function gcw_use_pixmap
  (c-name "gcw_use_pixmap")
  (return-type "none")
  (parameters
    '("gint32" "use_pixmap")
  )
)

(define-function gcw_use_hrshsym
  (c-name "gcw_use_hrshsym")
  (return-type "none")
  (parameters
    '("gint32" "use_hrshsym")
  )
)

(define-function gcw_debug
  (c-name "gcw_debug")
  (return-type "none")
  (parameters
    '("char*" "msg")
  )
)

(define-function gcw_set_gdk_color
  (c-name "gcw_set_gdk_color")
  (return-type "none")
  (parameters
  )
)

(define-function gcw_clear_background
  (c-name "gcw_clear_background")
  (return-type "none")
  (parameters
  )
)

(define-function gcw_init_canvas
  (c-name "gcw_init_canvas")
  (return-type "none")
  (parameters
    '("GnomeCanvas*" "canvas")
  )
)

(define-function gcw_install_canvas
  (c-name "gcw_install_canvas")
  (return-type "none")
  (parameters
    '("GnomeCanvas*" "canvas")
  )
)

(define-function gcw_set_device_size
  (c-name "gcw_set_device_size")
  (return-type "none")
  (parameters
    '("gint32" "width")
    '("gint32" "height")
  )
)

(define-function gcw_set_canvas_size
  (c-name "gcw_set_canvas_size")
  (return-type "none")
  (parameters
    '("GnomeCanvas*" "canvas")
    '("gint32" "width")
    '("gint32" "height")
  )
)

(define-function gcw_set_canvas_zoom
  (c-name "gcw_set_canvas_zoom")
  (return-type "none")
  (parameters
    '("GnomeCanvas*" "canvas")
    '("double" "magnification")
  )
)

(define-function gcw_use_persistence
  (c-name "gcw_use_persistence")
  (return-type "none")
  (parameters
    '("gint32" "use_persistence")
  )
)