scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ predicates for Xft return codes

This commit is contained in:
eknauel 2003-10-25 13:48:04 +00:00
parent a11b31a92f
commit 9d13fd2930
2 changed files with 26 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/libs/libs-interfaces.scm
View File

@ -43,7 +43,12 @@
scx-xft-draw-colormap scx-xft-draw-colormap
scx-xft-draw-visual scx-xft-draw-visual
(xft-pattern-object :syntax) (xft-pattern-object :syntax)
xft-pattern-object-elements)) xft-pattern-object-elements
scx-xft-result-match?
scx-xft-result-no-match?
scx-xft-result-type-mismatch?
scx-xft-result-no-id?))
(define-interface xrender-interface (define-interface xrender-interface
(export (export

32
scheme/libs/xft.scm
View File

@ -233,21 +233,29 @@
(shared-binding-ref (shared-binding-ref
(lookup-imported-binding "scx-xft-version-minor"))) (lookup-imported-binding "scx-xft-version-minor")))
(define scx-xft-result-match (define scx-xft-result-match?
(shared-binding-ref (let ((code (shared-binding-ref
(lookup-imported-binding "scx-xft-result-match"))) (lookup-imported-binding "scx-xft-result-match"))))
(lambda (value)
(equal? value code))))
(define scx-xft-result-no-match (define scx-xft-result-no-match?
(shared-binding-ref (let ((code (shared-binding-ref
(lookup-imported-binding "scx-xft-result-no-match"))) (lookup-imported-binding "scx-xft-result-no-match"))))
(lambda (value)
(equal? value code))))
(define scx-xft-result-type-mismatch (define scx-xft-result-type-mismatch?
(shared-binding-ref (let ((code (shared-binding-ref
(lookup-imported-binding "scx-xft-result-type-mismatch"))) (lookup-imported-binding "scx-xft-result-type-mismatch"))))
(lambda (value)
(equal? value code))))
(define scx-xft-result-no-id (define scx-xft-result-no-id?
(shared-binding-ref (let ((code (shared-binding-ref
(lookup-imported-binding "scx-xft-result-no-id"))) (lookup-imported-binding "scx-xft-result-no-id"))))
(lambda (value)
(equal? value code))))
;;; import functions from C code ;;; import functions from C code