mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 06:41:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2023-08-29 14:29:16 +02:00
parent 5291949358
commit 74177ecfd0
6 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/meshtastic/lisp/messages.lisp
View file

@ -142,12 +142,12 @@
(defun font-size-dialog ()
(app:confirm-dialog
(tr "Size") (tr "Message font size:") 'font-size-changed
:from 12 :to 48 :value (or (app:setting :message-font-size) 18)))
:from 10 :to 48 :value (or (app:setting :message-font-size) 18)))
(defun font-size-changed (ok) ; callback from QML
(when ok
(let ((size (q< |value| ui:*dialog-spin-box*)))
(setf size (min 48 (max 12 size)))
(setf size (min 48 (max 10 size)))
(q> |fontSize| ui:*message-view* size)
(app:change-setting :message-font-size size)))
(values))