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

Reverting most of r10468.

Browse Source 
svn: r10474
This commit is contained in:
Danny Yoo 2008-06-27 05:20:28 +00:00
parent e80141cc3d
commit 18701cf399
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/embedded-snip-utils.ss
View File

@ -45,4 +45,4 @@
;; can't find it.
(define (get-snip-outer-editor a-snip)
(let ([admin (send a-snip get-admin)])
(and admin (send snip-admin get-editor))))
(and admin (send admin get-editor))))

3
collects/drscheme/private/eval.ss
View File

@ -46,7 +46,8 @@
(let* ([text (drscheme:language:text/pos-text input)]
[start (drscheme:language:text/pos-start input)]
[end (drscheme:language:text/pos-end input)]
[text-port (open-input-text-editor text start end values text)])
[text-port (open-input-text-editor text start end values
(send text get-port-name))])
(port-count-lines! text-port)
(let* ([line (send text position-paragraph start)]
[column (- start (send text paragraph-start-position line))]

3
collects/drscheme/private/unit.ss
View File

@ -2144,7 +2144,8 @@ module browser threading seems wrong.
(let ([start 0])
(send definitions-text split-snip start)
(let* ([text-port (open-input-text-editor definitions-text start 'end values definitions-text #t)])
(let* ([name (send definitions-text get-port-name)]
[text-port (open-input-text-editor definitions-text start 'end values name #t)])
(port-count-lines! text-port)
(let* ([line (send definitions-text position-paragraph start)]
[column (- start (send definitions-text paragraph-start-position line))]