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

clean up debug print

Browse source
This commit is contained in:
Jeremy Penner 2021-04-19 23:57:39 -04:00
parent c77804a1f5
commit 6f40e7ff40
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
editor/imstate.fnl
View file

@ -227,7 +227,7 @@
(local row-h (+ (style.font:get_height) style.padding.y)) (local row-h (+ (style.font:get_height) style.padding.y))
(local new-selection (and (focused? view tag) view.imstate.focus.selection)) (local new-selection (and (focused? view tag) view.imstate.focus.selection))
(local focused-h (if (focused? view tag) (* row-h (+ (length options) 1)) row-h)) (local focused-h (if (focused? view tag) (* row-h (+ (length options) 1)) row-h))
(print new-selection (focused? view tag) focused-h view.imstate.active)
(when new-selection (set view.imstate.focus nil)) (when new-selection (set view.imstate.focus nil))
(renderer.draw_rect x y w row-h style.selection) (renderer.draw_rect x y w row-h style.selection)
@ -241,7 +241,6 @@
(renderer.draw_rect x row-y w row-h style.selection) (renderer.draw_rect x row-y w row-h style.selection)
(renderer.draw_text style.font option (+ x style.padding.x) (+ row-y (/ style.padding.y 2)) style.text) (renderer.draw_text style.font option (+ x style.padding.x) (+ row-y (/ style.padding.y 2)) style.text)
(when (button view [(make-tag tag) i] x row-y w row-h) (when (button view [(make-tag tag) i] x row-y w row-h)
(print "selected" option)
(set view.imstate.focus.selection option)) (set view.imstate.focus.selection option))
(set row-y (+ row-y row-h))))) (set row-y (+ row-y row-h)))))