github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-13 15:38:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

♻️ Minor naming changes and event handling

Browse Source
This commit is contained in:
Aitor Moreno 2026-01-02 12:33:29 +01:00
parent 75860afe57
commit 6c6b3db87e
2 changed files with 25 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
frontend/src/app/render_wasm/api.cljs
View File

@ -40,6 +40,7 @@
;; FIXME: rename; confunsing name ;; FIXME: rename; confunsing name
[app.render-wasm.wasm :as wasm] [app.render-wasm.wasm :as wasm]
[app.util.debug :as dbg] [app.util.debug :as dbg]
[app.util.dom :as dom]
[app.util.functions :as fns] [app.util.functions :as fns]
[app.util.globals :as ug] [app.util.globals :as ug]
[app.util.text.content :as tc] [app.util.text.content :as tc]
@ -1229,6 +1230,13 @@
(re-find #"(?i)edge" user-agent) :edge (re-find #"(?i)edge" user-agent) :edge
:else :unknown))))) :else :unknown)))))
(defn- on-webgl-context-lost
[event]
(dom/prevent-default event)
(reset! wasm/context-lost? true)
(log/warn :hint "WebGL context lost")
(st/emit! (drw/context-lost)))
(defn init-canvas-context (defn init-canvas-context
[canvas] [canvas]
(let [gl (unchecked-get wasm/internal-module "GL") (let [gl (unchecked-get wasm/internal-module "GL")
@ -1256,14 +1264,8 @@
(set-canvas-size canvas) (set-canvas-size canvas)
;; Add event listeners for WebGL context lost ;; Add event listeners for WebGL context lost
(let [handler (fn [event] (set! wasm/canvas canvas)
(.preventDefault event) (.addEventListener canvas "webglcontextlost" on-webgl-context-lost)
(reset! wasm/context-lost? true)
(log/warn :hint "WebGL context lost")
(st/emit! (drw/context-lost)))]
(set! wasm/context-lost-handler handler)
(set! wasm/context-lost-canvas canvas)
(.addEventListener canvas "webglcontextlost" handler))
(set! wasm/context-initialized? true))) (set! wasm/context-initialized? true)))
context-init?)) context-init?))
@ -1277,10 +1279,9 @@
(h/call wasm/internal-module "_clean_up") (h/call wasm/internal-module "_clean_up")
;; Remove event listener for WebGL context lost ;; Remove event listener for WebGL context lost
(when (and wasm/context-lost-handler wasm/context-lost-canvas) (when wasm/canvas
(.removeEventListener wasm/context-lost-canvas "webglcontextlost" wasm/context-lost-handler) (.removeEventListener wasm/canvas "webglcontextlost" on-webgl-context-lost)
(set! wasm/context-lost-canvas nil) (set! wasm/canvas nil))
(set! wasm/context-lost-handler nil))
;; Ensure the WebGL context is properly disposed so browsers do not keep ;; Ensure the WebGL context is properly disposed so browsers do not keep
;; accumulating active contexts between page switches. ;; accumulating active contexts between page switches.

17
frontend/src/app/render_wasm/wasm.cljs
View File

@ -9,8 +9,20 @@
(defonce internal-frame-id nil) (defonce internal-frame-id nil)
(defonce internal-module #js {}) (defonce internal-module #js {})
;; Reference to the HTML canvas element.
(defonce canvas nil)
;; Reference to the Emscripten GL context wrapper.
(defonce gl-context-handle nil) (defonce gl-context-handle nil)
;; Reference to the actual WebGL Context returned
;; by the `.getContext` method of the canvas.
(defonce gl-context nil) (defonce gl-context nil)
(defonce context-initialized? false)
(defonce context-lost? (atom false))
(defonce serializers (defonce serializers
#js {:blur-type shared/RawBlurType #js {:blur-type shared/RawBlurType
:blend-mode shared/RawBlendMode :blend-mode shared/RawBlendMode
@ -44,8 +56,3 @@
:stroke-linecap shared/RawStrokeLineCap :stroke-linecap shared/RawStrokeLineCap
:stroke-linejoin shared/RawStrokeLineJoin :stroke-linejoin shared/RawStrokeLineJoin
:fill-rule shared/RawFillRule}) :fill-rule shared/RawFillRule})
(defonce context-initialized? false)
(defonce context-lost? (atom false))
(defonce context-lost-handler nil)
(defonce context-lost-canvas nil)