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

Fix call to FONT-STRUCT:PROPERTIES in GET-FONT-PROPERTY

This commit is contained in:
mainzelm 2003-11-11 06:52:53 +00:00
parent 0b431ba220
commit db62ff412d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/xlib/font.scm
View File

@ -66,7 +66,7 @@
"scx_Free_Font")
(define (get-font-property font-struct atom)
(let ((a (assq atom (font-struct:properties)))) ;; assq ??
(let ((a (assq atom (font-struct:properties font-struct)))) ;; assq ??
(and a (cdr a))))
;; *** obtain or free font names and information *********************