Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv24306/scheme/xlib
Modified Files:
xlib-interfaces.scm xlib-packages.scm xlib-type-interfaces.scm
xlib-type-package.scm
Log Message:
+ added new types, interface and structure for region.
Index: xlib-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-interfaces.scm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** xlib-interfaces.scm 2001/09/20 14:41:01 1.8
--- xlib-interfaces.scm 2001/09/25 12:56:15 1.9
***************
*** 145,149 ****
--- 145,151 ----
alloc-color-cells
set-color-cell
+ set-color-cells
create-colormap
+ copy-colormap-and-free
))
***************
*** 441,445 ****
match-visual-info
))
!
;; all together
--- 443,470 ----
match-visual-info
))
!
! (define-interface xlib-region-interface
! (export region?
! destroy-region
! create-region
! clip-box
! region-empty?
! region-equal?
! point-in-region?
! rectangle-in-region?
! intersect-region
! union-region
! union-rectangle-with-region
! subtract-region
! xor-region
! offset-region!
! shrink-region!
! polygon-region
! set-region
! copy-region!
! duplicate-region
! offset-region
! shrink-region))
!
;; all together
***************
*** 467,469 ****
--- 492,495 ----
xlib-grab-interface
xlib-visual-interface
+ xlib-region-interface
))
Index: xlib-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-packages.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** xlib-packages.scm 2001/09/20 14:41:01 1.5
--- xlib-packages.scm 2001/09/25 12:56:15 1.6
***************
*** 157,160 ****
--- 157,166 ----
(files visual))
+ (define-structure xlib-region xlib-region-interface
+ (open scheme
+ external-calls
+ xlib-types)
+ (files region))
+
;; all together
***************
*** 182,185 ****
--- 188,192 ----
xlib-grab
xlib-visual
+ xlib-region
)
(optimize auto-integrate))
Index: xlib-type-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-type-interfaces.scm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** xlib-type-interfaces.scm 2001/08/21 15:15:03 1.12
--- xlib-type-interfaces.scm 2001/09/25 12:56:15 1.13
***************
*** 97,100 ****
--- 97,111 ----
free-cursor))
+ (define-interface xlib-visual-type-interface
+ (export visual?
+ make-visual
+ visual-Xvisual))
+
+ (define-interface xlib-region-type-interface
+ (export region?
+ make-region
+ destroy-region
+ region-Xregion))
+
;; all in one
***************
*** 114,116 ****
--- 125,129 ----
xlib-atom-type-interface
xlib-cursor-type-interface
+ xlib-visual-type-interface
+ xlib-region-type-interface
))
Index: xlib-type-package.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/xlib-type-package.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** xlib-type-package.scm 2001/09/20 14:41:01 1.3
--- xlib-type-package.scm 2001/09/25 12:56:15 1.4
***************
*** 30,32 ****
atom-type
cursor-type
! visual-type))
\ No newline at end of file
--- 30,33 ----
atom-type
cursor-type
! visual-type
! region-type))
\ No newline at end of file
|