fix selection erasing
This commit is contained in:
parent
2f706d73c8
commit
c02eebd096
5
term.tal
5
term.tal
|
@ -282,10 +282,11 @@
|
|||
( uses the existing .Screen/x and .Screen/y )
|
||||
( returns them to their starting values when finished )
|
||||
@erase-fg-cell ( -> )
|
||||
#40 .Screen/sprite DEO ( ; s/s<-40 )
|
||||
;cp437/nul .Screen/addr DEO2 ( ; use nul character to erase )
|
||||
#43 .Screen/sprite DEO ( ; s/s<-40 )
|
||||
.Screen/y DEI2k STH2k ( zp^ y* [y*] )
|
||||
#0004 ADD2 ROT DEO2 ( [y*] ; s/y<-y+4 )
|
||||
#40 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
|
||||
#43 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
|
||||
.Screen/y DEO2 JMP2r ( ; s/y<-y )
|
||||
|
||||
@draw-border ( -> )
|
||||
|
|
Loading…
Reference in New Issue