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

..

Browse Source 
original commit: b1d49d6e151eed67e61ac1212ba42978285445ee
This commit is contained in:
Robby Findler 2002-09-05 20:43:40 +00:00
parent 5fb39016bc
commit befbfb5dfb
1 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
collects/framework/private/frame.ss
View File

@ -485,14 +485,13 @@
[make-one
(lambda (pos)
(let* ([line (send edit position-paragraph pos)]
[line-start (send edit paragraph-start-position line)]
[char (- pos line-start)])
[col (find-col edit line pos)])
(if line-numbers?
(format "~a:~a"
(add1 line)
(if offset?
(add1 char)
char))
(add1 col)
col))
(format "~a" pos))))])
(cond
[(not (object? position-canvas))
@ -523,6 +522,34 @@
[else
(when (send position-canvas is-shown?)
(send position-canvas show #f))])))]
;; find-col : text number number -> number
;; given a line number and a position, finds the
;; column number for that position
(define/private (find-col text line pos)
(let ([line-start (send text line-start-position line)])
(let loop ([col 0]
[snip (send text find-snip line-start 'after-or-none)])
(cond
[(and snip (is-a? snip tab-snip%))
;; assume cursor isn't in the middle of the tab snip
;; and that there is no tab array
(let ([twb (box 0)])
(send text get-tabs #f twb #f)
(let ([tw (floor (inexact->exact (unbox twb)))])
(loop (+ col (- tw (modulo col tw)))
(send snip next))))]
[snip
(let ([snip-position (send text get-snip-position snip)]
[snip-length (send snip get-count)])
(if (<= snip-position pos (+ snip-position snip-length))
(+ col (- pos snip-position))
(loop (+ col snip-length)
(send snip next))))]
[else
col]))))
[define anchor-last-state? #f]
[define overwrite-last-state? #f]
(public anchor-status-changed editor-position-changed overwrite-status-changed set-macro-recording)