(use-modules (ice-9 format)
	     (gtk gdk)
	     (gtk gtk))

(define f (gdk-font-intern "fixed"))
(format #t "~a\n" f)
(format #t "id ~x\n" (gdk-font-id f))

(define wid (gtk-window-new 'toplevel))

(gtk-idle-add (lambda ()
		(let ((id (gdk-font-id f)))
		  (format #t "id ~x\n" id)
		  (gc))))

(gtk-widget-show-all wid)
(gtk-standalone-main wid)