steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

editor bug fix

cvs
Slava Pestov 2005-07-25 03:35:34 +00:00
parent 9c5360cdba
commit 257c21f9de
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -76,7 +76,6 @@
+ sequences + sequences
- dipping 2nmap, 2each
- array sort - array sort
- nappend: instead of using push, enlarge the sequence with set-length - nappend: instead of using push, enlarge the sequence with set-length
then add set the elements with set-nth then add set the elements with set-nth

3
library/ui/editors.factor
View File

@ -33,7 +33,8 @@ TUPLE: editor line caret ;
dup 0 [ + ] accumulate swap 2 v/n v+ ; dup 0 [ + ] accumulate swap 2 v/n v+ ;
: x>offset ( x font str -- offset ) : x>offset ( x font str -- offset )
run-char-widths [ <= ] find-with drop ; dup >r run-char-widths [ <= ] find-with drop dup -1 =
[ drop r> length ] [ r> drop ] ifte ;
: set-caret-x ( x editor -- ) : set-caret-x ( x editor -- )
#! Move the caret to a clicked location. #! Move the caret to a clicked location.