uiform register

(uiform-register name draw input)

uiform-register registers a new display element using standard syntax.

Parameter	Description
name	Display element name
draw	Function called when element is drawn: (lambda (x y w . arga) ...)
input	Function called when element is clicked: (lambda (type mx my . args) ... )

Example

Example 1: Define a spacer element, with code from modules/uiform/uiform.scm

(define (glgui:uiform-spacer-draw x y w . args)
  (let ((h (glgui:uiform-arg args 'height 30)))
     h
  )
)
(uiform-register 'spacer glgui:uiform-spacer-draw #f)