eUgEntOptIc44/gimp
1
1
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-10-06 05:22:40 +02:00
Code Issues Releases Activity

script-fu: Fix Render-Font-Map after API updates

Browse Source 
Resolves #12753
gimp-fonts-get-list now returns a vector rather than a list,
so we needed to change calls for length to vector-length
and replace car with vector-ref.
This commit is contained in:
Alx Sa
2025-01-21 16:41:52 +00:00
parent 602e8f71c7
commit f4582d97dd
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
plug-ins/script-fu/scripts/font-map.scm
View File

@@ -25,8 +25,8 @@
(font-object '())
(extents '()))
(while (< count list-cnt)
(set! font (car list))
(set! font-object (car (gimp-font-get-by-name font)))
(set! font-object (vector-ref list count))
(set! font (car (gimp-font-get-lookup-name font-object)))
(if (= use-name TRUE)
(set! text font))
@@ -37,7 +37,6 @@
(if (> width maxwidth)
(set! maxwidth width))
(set! list (cdr list))
(set! count (+ count 1))
)
@@ -53,8 +52,8 @@
(font-object '())
(extents '()))
(while (< count list-cnt)
(set! font (car list))
(set! font-object (car (gimp-font-get-by-name font)))
(set! font-object (vector-ref list count))
(set! font (car (gimp-font-get-lookup-name font-object)))
(if (= use-name TRUE)
(set! text font)
@@ -67,7 +66,6 @@
(set! maxheight height)
)
(set! list (cdr list))
(set! count (+ count 1))
)
@@ -79,7 +77,7 @@
; gimp-fonts-get-list returns a one element list of results,
; the only element is itself a list of fonts, possibly empty.
(font-list (car (gimp-fonts-get-list font-filter)))
(num-fonts (length font-list))
(num-fonts (vector-length font-list))
(label-size (/ font-size 2))
(border (+ border (* labels (/ label-size 2))))
(y border)
@@ -121,8 +119,8 @@
(gimp-drawable-edit-clear drawable)
(while (< count num-fonts)
(set! font (car font-list))
(set! font-object (car (gimp-font-get-by-name font)))
(set! font-object (vector-ref font-list count))
(set! font (car (gimp-font-get-lookup-name font-object)))
(if (= use-name TRUE)
(set! text font))
@@ -151,7 +149,6 @@
)
)
(set! font-list (cdr font-list))
(set! count (+ count 1))
)