3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-13 18:17:18 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix focus mode for wasm render

Browse source
This commit is contained in:
Alejandro Alonso 2025-06-10 13:32:33 +02:00
parent 01311225c7
commit 1c7aea4b84
5 changed files with 145 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
frontend/src/app/main/ui/workspace/viewport_wasm.cljs
View file

@ -320,6 +320,12 @@
(wasm.api/initialize base-objects zoom vbox background)
(reset! initialized? true)))
(mf/with-effect [focus]
(when (and @canvas-init? @initialized?)
(if (empty? focus)
(wasm.api/clear-focus-mode)
(wasm.api/set-focus-mode focus))))
(mf/with-effect [vbox zoom]
(when (and @canvas-init? initialized?)
(wasm.api/set-view-box zoom vbox)))

28
frontend/src/app/render_wasm/api.cljs
View file

@ -248,7 +248,7 @@
heap (mem/get-heap-u8)
dview (js/DataView. (.-buffer heap))]
;; write fill data to heap
;; write fill data to heap
(loop [fills (seq fills)
current-offset offset]
(when-not (empty? fills)
@ -256,10 +256,10 @@
new-offset (sr-fills/write-fill! current-offset dview fill)]
(recur (rest fills) new-offset))))
;; send fills to wasm
;; send fills to wasm
(h/call wasm/internal-module "_set_shape_fills")
;; load images for image fills if not cached
;; load images for image fills if not cached
(keep (fn [fill]
(let [image (:fill-image fill)
id (dm/get-prop image :id)
@ -802,6 +802,28 @@
(request-render "set-objects")
(process-pending pending)))
(defn clear-focus-mode
[]
(h/call wasm/internal-module "_clear_focus_mode")
(clear-drawing-cache)
(request-render "clear-focus-mode"))
(defn set-focus-mode
[entries]
(let [offset (mem/alloc-bytes-32 (* (count entries) 16))
heapu32 (mem/get-heap-u32)]
(loop [entries (seq entries)
current-offset offset]
(when-not (empty? entries)
(let [id (first entries)]
(sr/heapu32-set-uuid id heapu32 current-offset)
(recur (rest entries) (+ current-offset (mem/ptr8->ptr32 16))))))
(h/call wasm/internal-module "_set_focus_mode")
(clear-drawing-cache)
(request-render "set-focus-mode")))
(defn set-structure-modifiers
[entries]
(when-not (empty? entries)