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

..

Browse Source 
original commit: b992209044db834e977c9e64240003e91d098629
This commit is contained in:
Robby Findler 2002-07-26 03:14:39 +00:00
parent 87132ba0e3
commit 2869368235
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -109,8 +109,9 @@
(send dc draw-rectangle dt2x dty 2 2)
(send dc draw-rectangle dt3x dty 2 2))))
(inherit get-style)
(define/override (get-extent dc x y wb hb descentb spaceb lspaceb rspaceb)
(let-values ([(w h d a) (send dc get-text-extent sizing-text)])
(let-values ([(w h d a) (send dc get-text-extent sizing-text (send (get-style) get-font))])
(set-box/f! wb w)
(set-box/f! hb h)
(set-box/f! descentb d)
@ -229,7 +230,7 @@
null]
[else (cons (send snip copy) (loop (send snip next)))]))])
(send text delete left-pos right-pos)
(send text insert (instantiate sexp-snipclass% ()
(send text insert (instantiate sexp-snip% ()
(left-bracket left-bracket)
(right-bracket right-bracket)
(saved-snips snips))
@ -349,7 +350,6 @@
last-position
paragraph-start-position
paragraph-end-position
position-line
position-paragraph
set-keymap
set-load-overwrites-styles
@ -362,19 +362,19 @@
(rename [super-on-char on-char])
(define (in-single-line-comment? position)
(let ([line (position-line position)])
(let ([para (position-paragraph position)])
(ormap
(lambda (comment-start)
(let loop ([f (find-string comment-start 'backward position)])
(cond
[(not f)
#f]
[(= (position-line f) line)
[(= (position-paragraph f) para)
(let ([f-1 (- f 2)]) ;; -1 to go back one, -1 to be before char
(cond
[(< f-1 0)
#t]
[(not (= (position-line f-1) line))
[(not (= (position-paragraph f-1) para))
#t]
[(not (char=? (get-character f-1) #\\ ))
#t]