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

...

Browse Source 
original commit: 60a61abbabb9d7b6faafe0542979f83bc445bbfc
This commit is contained in:
Robby Findler 2002-01-12 19:18:51 +00:00
parent abf78c4e75
commit f3fbebafa3
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -932,9 +932,6 @@
(let ([old-start-para start-para]
[old-end-para end-para])
(cond
[(= 0 (last-position))
(set! start-para #f)
(set! end-para #f)]
[else
(set! start-para _start-para)
(set! end-para _end-para)])
@ -993,15 +990,18 @@
(let ([start (get-line-y start-para #t)]
[end (get-line-y end-para #f)]
[admin (get-admin)])
(if admin
(begin
(send admin get-view view-x-b #f view-width-b #f)
(send admin get-view view-x-b #f view-width-b #f)
(values (unbox view-x-b)
start
(unbox view-width-b)
(- end start)))
(values #f #f #f #f))))
(cond
[(not admin)
(values #f #f #f #f)]
[(= 0 (last-position))
(values #f #f #f #f)]
[else
(send admin get-view view-x-b #f view-width-b #f)
(send admin get-view view-x-b #f view-width-b #f)
(values (unbox view-x-b)
start
(unbox view-width-b)
(- end start))])))
(define/private (get-line-y para top?)
(let ([pos (paragraph-start-position para)]

6
collects/framework/private/scheme.ss
View File

@ -877,11 +877,13 @@
forward-cache))]
[define remove-sexp
(lambda (start-pos)
(begin-edit-sequence)
(let ([end-pos (get-forward-sexp start-pos)])
(if end-pos
(kill 0 start-pos end-pos)
(bell))
#t))]
(bell)))
(end-edit-sequence)
#t)]
[define forward-sexp
(lambda (start-pos)
(let ([end-pos (get-forward-sexp start-pos)])