From c71dc0f06075e83ab0cec9f9929baf917ed0ec8e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= Date: Tue, 24 Oct 2023 17:53:20 -0400 Subject: Remove extraneous debug info --- virtual-programs/editor.folk | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/editor.folk b/virtual-programs/editor.folk index 24389cf9..28648ecd 100644 --- a/virtual-programs/editor.folk +++ b/virtual-programs/editor.folk @@ -169,7 +169,9 @@ proc drawCursor {cursorPosition lineShift region} { # set adjustedShift [sub $multipliedShift $lineShiftHalf] set adjustedShift $multipliedShift set shiftedAnchor [sub $anchor $adjustedShift] - debug [lindex [rotateStroke [list $shiftedAnchor] $anchor $angle] 0] white + if {$::debug_cursor} { + debug [lindex [rotateStroke [list $shiftedAnchor] $anchor $angle] 0] white + } # add (x * width) to the shiftedAnchor position from the beginning of the line ... set scaledCursor [vec2::mult $cursorScale $cursorPosition] @@ -319,7 +321,6 @@ Every time keyboard claims key /currentCharacter/ is down with modifiers /modifi Claim the cursor is [list [getLineLength $code $cursor] $y] return } - puts "adding: $currentCharacter" Claim the cursor is [updateCursor $cursor {x 1}] Commit code { Claim $id has program code [insertCharacter $code $currentCharacter $cursor] } } -- cgit v1.2.3