- updated for new bindings.

- added threads to xlib-event structure. wait-event needs sleep.

scheme/xlib/xlib-interfaces.scm

@@ -39,6 +39,7 @@
 	  display-list-pixmap-formats
 	  list-pixmap-formats ;; compatibility with Elk, same as above
 	  synchronize
+	  display-select-input
 
 	  check-screen-number ;; for internal use (e.g. by client.scm)
 	  ))
@@ -140,11 +141,12 @@
 	  free-colormap
 	  colormap-display
 	  alloc-color!
+	  query/alloc-named-color
 	  alloc-named-color
 	  parse-color
 	  alloc-color-cells
-	  set-color-cell
+	  store-color
-	  set-color-cells
+	  store-colors
 	  create-colormap
 	  copy-colormap-and-free
 	  ))
@@ -161,6 +163,7 @@
 	  gcontext-display
 	  create-gcontext
 	  copy-gcontext
+	  copy-gcontext!
 	  free-gcontext
 
 	  query-best-size
@@ -168,6 +171,7 @@
 	  query-best-tile
 	  query-best-stipple
 
+	  get-gcontext-values
 	  gcontext-function
 	  gcontext-plane-mask
 	  gcontext-foreground
@@ -192,6 +196,7 @@
 	  gcontext-dash-offset
 	  gcontext-dashes
 
+	  change-gcontext
 	  set-gcontext-function!
 	  set-gcontext-plane-mask!
 	  set-gcontext-foreground!
@@ -237,7 +242,10 @@
 	  fill-arc
 	  draw-arcs
 	  fill-arcs
-	  fill-polygon))
+	  fill-polygon
+	  rectangle
+	  bounds
+	  points->segments))
 
 (define-interface xlib-font-interface
   (export font?
@@ -245,7 +253,6 @@
 	  open-font
 	  close-font
 	  font-name
-	  gcontext-font
 	  list-font-names
 	  list-fonts
 
@@ -303,7 +310,8 @@
 	  event-ready?
 	  events-pending
 	  next-event
-	  peek-event))
+	  peek-event
+	  wait-event))
 
 (define-interface xlib-text-interface
   (export text-width

scheme/xlib/xlib-packages.scm

@@ -72,6 +72,7 @@
 (define-structure xlib-event xlib-event-interface
   (open scheme
 	external-calls
+	threads  ;; for sleep
 	xlib-types)
   (files event))
 

scheme/xlib/xlib-type-interfaces.scm

@@ -69,7 +69,8 @@
   (export make-event
 	  event?
 	  event-type
-	  event-args))
+	  event-args
+	  event-set-args!))
 
 (define-interface xlib-font-type-interface
   (export make-font