- using a save version of gcontext-font.

scheme/xlib/gcontext.scm

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