6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-24 20:31:12 +00:00
Code Issues Projects Releases Wiki Activity

Fix line edit changed flag

Browse Source
This commit is contained in:
David Schmenk 2019-12-20 10:20:09 -08:00
parent 3d91e4175b
commit 3161692d4a
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/toolsrc/ed.pla
View File

@ -1313,16 +1313,16 @@ def editkey(key)
end
def editline(key)
word undoline
byte localchange, editstr[], editlen, editchars[MAXLNLEN+1]
byte undopos, localchange, editstr[], editlen, editchars[MAXLNLEN+1]
localchange = FALSE
if (editkey(key))
localchange = TRUE
undopos = curscol
undoline = txtlinbuf=>[cursrow]
editlen = MAXLNLEN
memset(@editchars, $A0A0, MAXLNLEN)
memcpy(@editchars, undoline + 1, ^undoline)
editlen = MAXLNLEN
txtlinbuf=>[cursrow] = @editstr
localchange = FALSE
repeat
when key
is keyctrld
@ -1331,27 +1331,32 @@ def editline(key)
cursoff
drawrow(cursy, scrnleft, @editstr)
curson
localchange = TRUE
break
is keyctrlr
memset(@editchars, $A0A0, MAXLNLEN)
memcpy(@editchars, undoline + 1, ^undoline)
cursoff
drawrow(cursy, scrnleft, @editstr)
if curshpos(undopos)
drawscrn(scrntop, scrnleft)
else
drawrow(cursy, scrnleft, @editstr)
fin
curson
localchange = FALSE
break
is keydelete
if curscol > 0
curscol--
memcpy(@editchars[curscol], @editchars[curscol + 1], MAXLNLEN - 1 - curscol)
memcpy(@editchars[curscol - 1], @editchars[curscol], MAXLNLEN - curscol)
editchars[MAXLNLEN - 1] = keyspace
cursoff
if curshpos(curscol)
if curshpos(curscol - 1)
drawscrn(scrntop, scrnleft)
else
drawrow(cursy, scrnleft, @editstr)
fin
curson
localchange = TRUE
fin
break
otherwise
@ -1371,6 +1376,7 @@ def editline(key)
drawrow(cursy, scrnleft, @editstr)
fin
curson
localchange = TRUE
break
wend
key = keyin()