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

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

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