🐛 Fix problem with shift and alt in numeric inputs

This commit is contained in:
Alonso Torres 2026-05-21 11:02:47 +02:00 committed by GitHub
parent df0a58af93
commit c0e7bfae00
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -470,7 +470,11 @@
(let [parsed (parse-value (str/trim (mf/ref-val raw-value*)) (mf/ref-val last-value*) min max nillable)
current-value (or parsed default)
new-val (increment current-value step min max)]
eff-step (cond
(kbd/shift? event) (* step 10)
(kbd/alt? event) (* step 0.1)
:else step)
new-val (increment current-value eff-step min max)]
(dom/prevent-default event)
(update-input (fmt/format-number new-val))
(apply-value (dm/str new-val))))
@ -483,7 +487,11 @@
(let [parsed (parse-value (str/trim (mf/ref-val raw-value*)) (mf/ref-val last-value*) min max nillable)
current-value (or parsed default)
new-val (decrement current-value step min max)]
eff-step (cond
(kbd/shift? event) (* step 10)
(kbd/alt? event) (* step 0.1)
:else step)
new-val (decrement current-value eff-step min max)]
(dom/prevent-default event)
(update-input (fmt/format-number new-val))
(apply-value (dm/str new-val))))))))