utils.ss
#lang scheme/base

(require scheme/gui)

(provide (all-defined-out))

(define (current-line master)
  (send master find-line 
        (let ([x (box 0)]
              [y (box 0)])
          (send master position-location
                (send master get-start-position)
                x y)
          (unbox y))))

(define (find-line-start master line)
  (send master line-start-position line))

(define (find-line-end master line)
  (add1
    (send master line-end-position line)))