diff --git a/basis/ui/gadgets/grid-lines/grid-lines.factor b/basis/ui/gadgets/grid-lines/grid-lines.factor old mode 100644 new mode 100755 index adfdd16f69..feca8f7c63 --- a/basis/ui/gadgets/grid-lines/grid-lines.factor +++ b/basis/ui/gadgets/grid-lines/grid-lines.factor @@ -18,18 +18,16 @@ SYMBOL: grid-dim grid-dim get spin set-axis ; : draw-grid-lines ( gaps orientation -- ) - grid get rot grid-positions grid get rect-dim suffix [ - grid-line-from/to gl-line - ] with each ; + [ grid get swap grid-positions grid get rect-dim suffix ] dip + [ [ v- ] curry map ] keep + [ swap grid-line-from/to gl-line ] curry each ; M: grid-lines draw-boundary color>> gl-color [ dup grid set dup rect-dim half-gap v- grid-dim set compute-grid - [ { -0.5 -0.5 } gl-translate { 1 0 } draw-grid-lines ] - [ - { 0.5 -0.5 } gl-translate - { 0 1 } draw-grid-lines - ] bi* + [ { 1 0 } draw-grid-lines ] + [ { 0 1 } draw-grid-lines ] + bi* ] with-scope ; diff --git a/basis/ui/render/render.factor b/basis/ui/render/render.factor old mode 100644 new mode 100755 diff --git a/extra/ui/render/test/test.factor b/extra/ui/render/test/test.factor old mode 100644 new mode 100755 index 01b5b65bcf..bf7b7b4556 --- a/extra/ui/render/test/test.factor +++ b/extra/ui/render/test/test.factor @@ -22,8 +22,12 @@ TUPLE: ui-render-test < pack { first-time? initial: t } ; : message-window ( text -- )