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

.

Browse Source 
original commit: 2ab7c1f5622ad396fafe4cf9aff5708e69d3f963
This commit is contained in:
Robby Findler 2004-08-10 20:47:24 +00:00
parent 26d6ffa12f
commit 721784aa77
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/private/frame.ss
View File

@ -579,7 +579,7 @@
(lambda ()
(lock-status-changed))]
(super-instantiate ())
(super-new)
(set! outer-info-panel (make-object horizontal-panel% super-root))
(send outer-info-panel stretchable-height #f)
@ -749,7 +749,7 @@
;; 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 ([line-start (send text paragraph-start-position line)])
(if (= line-start pos)
0
(let loop ([col 0]