suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix GUI I/O when Return is typed in the middle of the editor (merge into 4.1.4)

Browse Source 
svn: r13211
This commit is contained in:
Matthew Flatt 2009-01-19 03:25:56 +00:00
parent 751dc50c24
commit 30b37f0cec
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mred/mred.cxx
View File

@ -2466,10 +2466,12 @@ static Bool RecordInput(void *m, wxEvent *event, void *data)
media->Insert("\n"); media->Insert("\n");
start = media->GetStartPosition(); start = media->GetStartPosition();
len = start - ioFrame->endpos; len = start - ioFrame->endpos;
s = media->GetTextUTF8(ioFrame->endpos, start); if (len > 0) {
ioFrame->endpos = start; s = media->GetTextUTF8(ioFrame->endpos, start);
ioFrame->endpos = start;
scheme_write_byte_string(s, len, stdin_pipe); scheme_write_byte_string(s, len, stdin_pipe);
}
return TRUE; return TRUE;
} }