diff options
| author | Andrés Cuervo <andrescuervor@gmail.com> | 2023-09-22 17:23:06 +0000 |
|---|---|---|
| committer | Andrés Cuervo <andrescuervor@gmail.com> | 2023-09-22 17:23:06 +0000 |
| commit | 86d072c4205fec692176dc3a67c5b1799e3faa43 (patch) | |
| tree | 7bde464e10677a4ff414bfe58fab72827713c273 /virtual-programs/editor.folk | |
| parent | Add absolute cursor, prep for refactor (diff) | |
| download | folk-86d072c4205fec692176dc3a67c5b1799e3faa43.tar.gz folk-86d072c4205fec692176dc3a67c5b1799e3faa43.zip | |
Fix halo angle, begin fixing editor text position
Diffstat (limited to 'virtual-programs/editor.folk')
| -rw-r--r-- | virtual-programs/editor.folk | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/virtual-programs/editor.folk b/virtual-programs/editor.folk index 6387c363..81b635c4 100644 --- a/virtual-programs/editor.folk +++ b/virtual-programs/editor.folk @@ -117,15 +117,7 @@ Commit code { Claim $id has program code $baseCode } proc drawText {text cursor count region} { set lineNumber 1 set showCursor [expr {$count % 2 == 0}] - set corner [region topleft $region] - set angle [region angle $region] - lassign $corner cornerX cornerY - foreach line [split $text "\n"] { - set lineCornerY [- $cornerY [* $lineNumber 50]] - set lineCornerX [- $cornerX [* [string length $line] 9]] - Display::text $lineCornerX $lineCornerY 2 $line $angle - set lineNumber [+ $lineNumber 1] - } + Display::text {*}[region centroid $region] 2 $text [region angle $region] } # TODO: refactor this to not reply on absolute region position but instead to compose as 0, 0 |