mirror of
https://github.com/penpot/penpot.git
synced 2026-07-30 18:06:15 +00:00
Merge pull request #8291 from penpot/superalex-fix-dashboard-navigation
🐛 Fix dashboard navigation from workspace
This commit is contained in:
commit
b3faa985ce
@ -911,17 +911,23 @@
|
|||||||
|
|
||||||
(def render-finish
|
(def render-finish
|
||||||
(letfn [(do-render [ts]
|
(letfn [(do-render [ts]
|
||||||
(perf/begin-measure "render-finish")
|
;; Check if context is still initialized before executing
|
||||||
(h/call wasm/internal-module "_set_view_end")
|
;; to prevent errors when navigating quickly
|
||||||
(render ts)
|
(when wasm/context-initialized?
|
||||||
(perf/end-measure "render-finish"))]
|
(perf/begin-measure "render-finish")
|
||||||
|
(h/call wasm/internal-module "_set_view_end")
|
||||||
|
(render ts)
|
||||||
|
(perf/end-measure "render-finish")))]
|
||||||
(fns/debounce do-render DEBOUNCE_DELAY_MS)))
|
(fns/debounce do-render DEBOUNCE_DELAY_MS)))
|
||||||
|
|
||||||
(def render-pan
|
(def render-pan
|
||||||
(letfn [(do-render-pan [ts]
|
(letfn [(do-render-pan [ts]
|
||||||
(perf/begin-measure "render-pan")
|
;; Check if context is still initialized before executing
|
||||||
(render ts)
|
;; to prevent errors when navigating quickly
|
||||||
(perf/end-measure "render-pan"))]
|
(when wasm/context-initialized?
|
||||||
|
(perf/begin-measure "render-pan")
|
||||||
|
(render ts)
|
||||||
|
(perf/end-measure "render-pan")))]
|
||||||
(fns/throttle do-render-pan THROTTLE_DELAY_MS)))
|
(fns/throttle do-render-pan THROTTLE_DELAY_MS)))
|
||||||
|
|
||||||
(defn set-view-box
|
(defn set-view-box
|
||||||
@ -1399,6 +1405,16 @@
|
|||||||
[]
|
[]
|
||||||
(when wasm/context-initialized?
|
(when wasm/context-initialized?
|
||||||
(try
|
(try
|
||||||
|
;; Cancel any pending animation frame to prevent race conditions
|
||||||
|
(when wasm/internal-frame-id
|
||||||
|
(js/cancelAnimationFrame wasm/internal-frame-id)
|
||||||
|
(set! wasm/internal-frame-id nil))
|
||||||
|
|
||||||
|
;; Reset render flags to prevent new renders from being scheduled
|
||||||
|
(reset! pending-render false)
|
||||||
|
(reset! shapes-loading? false)
|
||||||
|
(reset! deferred-render? false)
|
||||||
|
|
||||||
;; TODO: perform corresponding cleaning
|
;; TODO: perform corresponding cleaning
|
||||||
(set! wasm/context-initialized? false)
|
(set! wasm/context-initialized? false)
|
||||||
(h/call wasm/internal-module "_clean_up")
|
(h/call wasm/internal-module "_clean_up")
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user