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

...

Browse Source 
original commit: 4f3059727a34748bccdd384c9ea9ec3b28a6adad
This commit is contained in:
Robby Findler 2001-01-17 21:57:39 +00:00
parent 0f2486156e
commit 96ed8a1e3f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/frame.ss
View File

@ -400,8 +400,8 @@
(let* ([edit (get-info-editor)]
[make-one
(lambda (pos)
(let* ([line (send edit position-line pos)]
[line-start (send edit line-start-position line)]
(let* ([line (send edit position-paragraph pos)]
[line-start (send edit paragraph-start-position line)]
[char (- pos line-start)])
(if line-numbers?
(format "~a:~a"