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

...

Browse Source 
original commit: 1efad5615cfdc5317a8ac08f0e5e7c0b167bfe32
This commit is contained in:
Robby Findler 1999-06-10 16:03:15 +00:00
parent d864a300a1
commit b6fa4ca703
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/frame.ss
View File

@ -225,11 +225,10 @@
[filename (send edit get-filename b)])
(if (or (not filename) (unbox b))
(bell)
(let-values ([(start end)
(if (is-a? edit original:text%)
(values (send edit get-start-position)
(send edit get-end-position))
(values #f #f))])
(let ([start
(if (is-a? edit original:text%)
(send edit get-start-position)
#f)])
(send edit begin-edit-sequence)
(let ([status (send edit load-file
filename
@ -238,7 +237,7 @@
(if status
(begin
(when (is-a? edit original:text%)
(send edit set-position start end))
(send edit set-position start start))
(send edit end-edit-sequence))
(begin
(send edit end-edit-sequence)