fix textbox styling
This commit is contained in:
parent
8b646eac4b
commit
e711557fdf
|
@ -202,7 +202,7 @@
|
|||
|
||||
(fn textbox [form text]
|
||||
(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 ""))
|
||||
(local (hText xText yText) (values (font:get_height) (+ x (/ xpad 2)) (+ y (/ ypad 2))))
|
||||
(local initial-press (= view.imstate.left :pressed))
|
||||
|
|
Loading…
Reference in a new issue