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

- using a save version of gcontext-font.

This commit is contained in:
frese 2002-02-04 12:45:25 +00:00
parent b6a026853a
commit ec4311676b
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
scheme/xlib/gcontext.scm
View File

@ -94,7 +94,7 @@
(make-pixel Xpixel #f #f))) (make-pixel Xpixel #f #f)))
((11 12 20) (lambda (Xpixmap) ((11 12 20) (lambda (Xpixmap)
(make-pixmap Xpixmap display #f))) (make-pixmap Xpixmap display #f)))
((15) (lambda (Xfont) ((14) (lambda (Xfont)
;; -> see Xlib Programming Manual 5.12 ;; -> see Xlib Programming Manual 5.12
(make-font #f Xfont #f display #t))) (make-font #f Xfont #f display #t)))
(else (lambda (x) x)))))) (else (lambda (x) x))))))
@ -118,7 +118,7 @@
(define gcontext-stipple (make-gcontext-getter (gc-value stipple))) (define gcontext-stipple (make-gcontext-getter (gc-value stipple)))
(define gcontext-ts-x-origin (make-gcontext-getter (gc-value ts-x-origin))) (define gcontext-ts-x-origin (make-gcontext-getter (gc-value ts-x-origin)))
(define gcontext-ts-y-origin (make-gcontext-getter (gc-value ts-y-origin))) (define gcontext-ts-y-origin (make-gcontext-getter (gc-value ts-y-origin)))
(define gcontext-font (make-gcontext-getter (gc-value font))) ;(define gcontext-font (make-gcontext-getter (gc-value font)))
(define gcontext-subwindow-mode (define gcontext-subwindow-mode
(make-gcontext-getter (gc-value subwindow-mode))) (make-gcontext-getter (gc-value subwindow-mode)))
(define gcontext-graphics-exposures (define gcontext-graphics-exposures
@ -131,15 +131,15 @@
;; Alternative definition of gcontext-font. See XGcontextFromGC ;; Alternative definition of gcontext-font. See XGcontextFromGC
; ;
;(define (gcontext-font gcontext) (define (gcontext-font gcontext)
; (let* ((display (gcontext-display gcontext)) (let* ((display (gcontext-display gcontext))
; (Xfontstruct (%gcontext-font (Xfontstruct (%gcontext-font
; (display-Xdisplay display) (display-Xdisplay display)
; (gcontext-Xgcontext gcontext)))) (gcontext-Xgcontext gcontext))))
; (make-font #f #f Xfontstruct display #f))) (make-font #f #f Xfontstruct display #f)))
;
;(import-lambda-definition %gcontext-font (Xdisplay Xgcontext) (import-lambda-definition %gcontext-font (Xdisplay Xgcontext)
; "scx_GContext_Font") ; defined in font.c "scx_GContext_Font") ; defined in font.c
;; change-gcontext sets some attributes of the specified graphic ;; change-gcontext sets some attributes of the specified graphic
;; context. The format of the arguments is like for ;; context. The format of the arguments is like for