Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv2143
Modified Files:
xlib-interfaces.scm xlib-packages.scm
Log Message:
added the error, extension, utility and grab packages. added
parse-color to the colormap package.
Index: xlib-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-interfaces.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** xlib-interfaces.scm 2001/08/22 11:51:35 1.6
--- xlib-interfaces.scm 2001/08/29 14:49:31 1.7
***************
*** 141,144 ****
--- 141,145 ----
alloc-color
alloc-named-color
+ parse-color
))
***************
*** 394,397 ****
--- 395,434 ----
refresh-keyboard-mapping))
+ (define-interface xlib-error-interface
+ (export x-error-handler
+ x-fatal-error-handler))
+
+ (define-interface xlib-extension-interface
+ (export list-extensions
+ query-extension))
+
+ (define-interface xlib-utility-interface
+ (export xlib-release-4-or-later?
+ xlib-release-5-or-later?
+ xlib-release-6-or-later?
+ get-default
+ resource-manager-string
+ parse-geometry
+ store-buffer
+ fetch-buffer
+ fetch-bytes
+ rotate-buffers))
+
+ (define-interface xlib-grab-interface
+ (export grab-pointer
+ ungrab-pointer
+ grab-button
+ ungrab-button
+ change-active-pointer-grab
+ grab-keyboard
+ ungrab-keyboard
+ grab-key
+ ungrab-key
+ allow-events
+ grab-server
+ ungrab-server
+ ;; syntax: with-server-grabbed
+ ))
+
;; all together
***************
*** 414,416 ****
--- 451,457 ----
xlib-client-interface
xlib-key-interface
+ xlib-error-interface
+ xlib-extension-interface
+ xlib-utility-interface
+ xlib-grab-interface
))
Index: xlib-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-packages.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** xlib-packages.scm 2001/08/22 11:51:35 1.3
--- xlib-packages.scm 2001/08/29 14:49:31 1.4
***************
*** 124,127 ****
--- 124,154 ----
(files key))
+ (define-structure xlib-error xlib-error-interface
+ (open scheme
+ external-calls
+ xlib-types)
+ (files error))
+
+ (define-structure xlib-extension xlib-extension-interface
+ (open scheme
+ external-calls
+ xlib-types)
+ (files extension))
+
+ (define-structure xlib-utility xlib-utility-interface
+ (open scheme
+ external-calls
+ receiving
+ xlib-types
+ xlib-display
+ xlib-property)
+ (files utility))
+
+ (define-structure xlib-grab xlib-grab-interface
+ (open scheme
+ external-calls
+ xlib-types)
+ (files grab))
+
;; all together
***************
*** 144,147 ****
xlib-client
xlib-key
)
! (optimize auto-integrate))
\ No newline at end of file
--- 171,178 ----
xlib-client
xlib-key
+ xlib-error
+ xlib-extension
+ xlib-utility
+ xlib-grab
)
! (optimize auto-integrate))
|