status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix on-mouse-up not firing when resizing

This commit is contained in:
Christian Karlsen 2017-09-15 17:01:42 +02:00 committed by chris
parent 5d4f21b89f
commit 0a4d04b214
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/day8/re_frame/trace.cljs
View File

@ -344,7 +344,8 @@
(let [x (.-clientX e)
y (.-clientY e)]
(.preventDefault e)
(reset! panel-width-ratio (/ (- window-width x) window-width)))))]
(reset! panel-width-ratio (/ (- window-width x) window-width)))))
handle-mouse-up (fn [e] (reset! dragging? false))]
(add-watch panel-width-ratio
:update-panel-width-ratio
(fn [_ _ _ new-state]
@ -357,10 +358,12 @@
{:component-will-mount (fn []
(toggle-traces showing?)
(js/window.addEventListener "keydown" handle-keys)
(js/window.addEventListener "mousemove" handle-mousemove))
(js/window.addEventListener "mousemove" handle-mousemove)
(js/window.addEventListener "mouseup" handle-mouse-up))
:component-will-unmount (fn []
(js/window.removeEventListener "keydown" handle-keys)
(js/window.removeEventListener "mousemove" handle-mousemove))
(js/window.removeEventListener "mousemove" handle-mousemove)
(js/window.removeEventListener "mouseup" handle-mouse-up))
:display-name "devtools outer"
:reagent-render (fn []
(let [draggable-area 10
@ -376,8 +379,7 @@
:left left :top "0px" :width (str (inc (int (* 100 @panel-width-ratio))) "%") :height "100%"
:transition transition}}
[:div.panel-resizer {:style (resizer-style draggable-area)
:on-mouse-down #(reset! dragging? true)
:on-mouse-up #(reset! dragging? false)}]
:on-mouse-down #(reset! dragging? true)}]
[:div.panel-content
{:style {:width "100%" :height "100%" :display "flex" :flex-direction "column"}}
[:div.panel-content-top