- updated.

scheme/xlib/xlib-interfaces.scm

@@ -304,7 +304,12 @@
 (define-interface xlib-event-interface
   (export 
    wait-event
+   next-event
    send-event
+   event-ready?
+   events-pending
+   events-queued
+   ((queued-mode) :syntax)
 	  
    ((event-type) :syntax)
    any-event-type
@@ -714,7 +719,9 @@
 	  change-save-set
 	  set-close-down-mode
 	  get-pointer-mapping
-	  set-pointer-mapping))
+	  set-pointer-mapping
+	  ((wm-state) :syntax)
+	  get-wm-state set-wm-state))
 
 (define-interface xlib-client-interface
   (export iconify-window
@@ -846,31 +853,33 @@
    display? display-after-function 
    display-set-after-function! close-display
    special-time:current-time
+   display-Xdisplay
 
    window? destroy-window window-display
    window-tag window-set-tag!
    special-window:none special-window:pointer-window
    special-window:input-focus special-window:pointer-root
+   window-Xwindow
 
-   drawable? drawable-display
+   drawable? drawable-display drawable-Xobject
 
-   color?
+   color? color-Xcolor
 
-   colormap? free-colormap colormap-display
+   colormap? free-colormap colormap-display colormap-Xcolormap
 
-   pixel?
+   pixel? pixel-Xpixel pixel-colormap
 
    gcontext? free-gcontext gcontext? gcontext-display
-   special-gcontext:none
+   special-gcontext:none gcontext-Xgcontext
 
-   pixmap? free-pixmap pixmap-display
+   pixmap? free-pixmap pixmap-display pixmap-Xpixmap
 
    font? font-display font-name open-font close-font
-   special-font:none
+   special-font:none font-Xfont font-Xfontstruct
 
-   atom? make-atom intern-atom special-atom:none
+   atom? make-atom intern-atom special-atom:none atom-Xatom
 
-   cursor? cursor-display free-cursor
+   cursor? cursor-display free-cursor cursor-Xcursor
 
    visual?
 

scheme/xlib/xlib-internal-interfaces.scm

@@ -25,7 +25,7 @@
 
    colormap? make-colormap free-colormap colormap-display colormap-Xcolormap
 
-   pixel? make-pixel pixel-Xpixel
+   pixel? make-pixel pixel-Xpixel pixel-colormap
 
    gcontext? make-gcontext free-gcontext gcontext? gcontext-display
    gcontext-Xgcontext special-gcontext:none

scheme/xlib/xlib-packages.scm

@@ -141,6 +141,7 @@
 	external-calls
 	xlib-internal-types
 	signals ;; for error
+	xlib-property ;; get-property and change-property
 	finite-types
 	xlib-helper)
   (files wm))