🐛 Fix fill images for text

This commit is contained in:
Alejandro Alonso 2025-06-19 15:41:45 +02:00
parent d71fa659d5
commit 5c7a4ce5b7
2 changed files with 11 additions and 12 deletions

View file

@ -223,17 +223,16 @@
(defn- process-fill-image (defn- process-fill-image
[shape-id fill] [shape-id fill]
(rx/from (when-let [image (:fill-image fill)]
(when-let [image (:fill-image fill)] (let [id (dm/get-prop image :id)
(let [id (dm/get-prop image :id) buffer (uuid/get-u32 id)
buffer (uuid/get-u32 id) cached-image? (h/call wasm/internal-module "_is_image_cached"
cached-image? (h/call wasm/internal-module "_is_image_cached" (aget buffer 0)
(aget buffer 0) (aget buffer 1)
(aget buffer 1) (aget buffer 2)
(aget buffer 2) (aget buffer 3))]
(aget buffer 3))] (when (zero? cached-image?)
(when (zero? cached-image?) (fetch-image shape-id id)))))
(fetch-image shape-id id))))))
(defn set-shape-text-images (defn set-shape-text-images
[shape-id content] [shape-id content]

View file

@ -61,7 +61,7 @@ impl ImageStore {
None, None,
None, None,
None, None,
None, true,
false, false,
)?; )?;