From 4de9034f71b76fe2d41a6a9f848f5f8c88eccd69 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Tue, 9 Oct 2001 15:51:33 +0000
Subject: [PATCH] - updated for new bindings. - added threads to xlib-event
 structure. wait-event needs sleep.

---
 scheme/xlib/xlib-interfaces.scm      | 18 +++++++++++++-----
 scheme/xlib/xlib-packages.scm        |  1 +
 scheme/xlib/xlib-type-interfaces.scm |  3 ++-
 3 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/scheme/xlib/xlib-interfaces.scm b/scheme/xlib/xlib-interfaces.scm
index f127118..ffa12ac 100644
--- a/scheme/xlib/xlib-interfaces.scm
+++ b/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
-	  set-color-cells
+	  store-color
+	  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
diff --git a/scheme/xlib/xlib-packages.scm b/scheme/xlib/xlib-packages.scm
index c1e1034..254b7e3 100644
--- a/scheme/xlib/xlib-packages.scm
+++ b/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))
 
diff --git a/scheme/xlib/xlib-type-interfaces.scm b/scheme/xlib/xlib-type-interfaces.scm
index b8f3d39..076f2bc 100644
--- a/scheme/xlib/xlib-type-interfaces.scm
+++ b/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