Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv9860/scheme/xlib
Modified Files:
xlib-interfaces.scm xlib-packages.scm xlib-type-interfaces.scm
Log Message:
- updated for new bindings.
- added threads to xlib-event structure. wait-event needs sleep.
Index: xlib-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-interfaces.scm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** xlib-interfaces.scm 2001/09/25 12:56:15 1.9
--- xlib-interfaces.scm 2001/10/09 15:51:33 1.10
***************
*** 40,43 ****
--- 40,44 ----
list-pixmap-formats ;; compatibility with Elk, same as above
synchronize
+ display-select-input
check-screen-number ;; for internal use (e.g. by client.scm)
***************
*** 141,149 ****
colormap-display
alloc-color!
alloc-named-color
parse-color
alloc-color-cells
! set-color-cell
! set-color-cells
create-colormap
copy-colormap-and-free
--- 142,151 ----
colormap-display
alloc-color!
+ query/alloc-named-color
alloc-named-color
parse-color
alloc-color-cells
! store-color
! store-colors
create-colormap
copy-colormap-and-free
***************
*** 162,165 ****
--- 164,168 ----
create-gcontext
copy-gcontext
+ copy-gcontext!
free-gcontext
***************
*** 169,172 ****
--- 172,176 ----
query-best-stipple
+ get-gcontext-values
gcontext-function
gcontext-plane-mask
***************
*** 193,196 ****
--- 197,201 ----
gcontext-dashes
+ change-gcontext
set-gcontext-function!
set-gcontext-plane-mask!
***************
*** 238,242 ****
draw-arcs
fill-arcs
! fill-polygon))
(define-interface xlib-font-interface
--- 243,250 ----
draw-arcs
fill-arcs
! fill-polygon
! rectangle
! bounds
! points->segments))
(define-interface xlib-font-interface
***************
*** 246,250 ****
close-font
font-name
- gcontext-font
list-font-names
list-fonts
--- 254,257 ----
***************
*** 304,308 ****
events-pending
next-event
! peek-event))
(define-interface xlib-text-interface
--- 311,316 ----
events-pending
next-event
! peek-event
! wait-event))
(define-interface xlib-text-interface
Index: xlib-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-packages.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** xlib-packages.scm 2001/09/25 12:56:15 1.6
--- xlib-packages.scm 2001/10/09 15:51:33 1.7
***************
*** 73,76 ****
--- 73,77 ----
(open scheme
external-calls
+ threads ;; for sleep
xlib-types)
(files event))
Index: xlib-type-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-type-interfaces.scm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** xlib-type-interfaces.scm 2001/09/25 12:56:15 1.13
--- xlib-type-interfaces.scm 2001/10/09 15:51:33 1.14
***************
*** 70,74 ****
event?
event-type
! event-args))
(define-interface xlib-font-type-interface
--- 70,75 ----
event?
event-type
! event-args
! event-set-args!))
(define-interface xlib-font-type-interface
|