SpindleyQ/honeylisp
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix textbox styling

Browse source
This commit is contained in:
Jeremy Penner 2021-12-21 09:41:15 -06:00
parent 8b646eac4b
commit e711557fdf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
editor/imgui.fnl
View file

@ -202,7 +202,7 @@
(fn textbox [form text] (fn textbox [form text]
(local {: font : color : w : h : x : y : xpad : ypad : color : view : tag} (local {: font : color : w : h : x : y : xpad : ypad : color : view : tag}
(with-style form :h #(+ ($1.font:get_height) $1.xpad))) (with-style form :h #(+ ($1.font:get_height) $1.ypad)))
(var textNew (or text "")) (var textNew (or text ""))
(local (hText xText yText) (values (font:get_height) (+ x (/ xpad 2)) (+ y (/ ypad 2)))) (local (hText xText yText) (values (font:get_height) (+ x (/ xpad 2)) (+ y (/ ypad 2))))
(local initial-press (= view.imstate.left :pressed)) (local initial-press (= view.imstate.left :pressed))