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

remove 'stupid-internal-definition' and Rackety

Browse Source
This commit is contained in:
Robby Findler 2011-12-26 11:31:46 -06:00
parent a0475c5d90
commit 376ad1f52c
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drracket/private/language-configuration.rkt
View File

@ -1757,9 +1757,8 @@
(send txt change-style link-sd 0 (send txt last-position)))) (send txt change-style link-sd 0 (send txt last-position))))
(define link-sd (make-object style-delta% 'change-underline #t)) (define link-sd (make-object style-delta% 'change-underline #t))
(define stupid-internal-define-syntax1 (send link-sd set-delta-foreground "blue")
(begin (send link-sd set-delta-foreground "blue") (send link-sd set-family 'default)
(send link-sd set-family 'default)))
(main)) (main))

17
collects/drracket/private/rep.rkt
View File

@ -369,17 +369,16 @@ TODO
;; insert/delta : (instanceof text%) (union snip string) (listof style-delta%) *-> (values number number) ;; insert/delta : (instanceof text%) (union snip string) (listof style-delta%) *-> (values number number)
;; inserts the string/stnip into the text at the end and changes the ;; inserts the string/snip into the text at the end and changes the
;; style of the newly inserted text based on the style deltas. ;; style of the newly inserted text based on the style deltas.
(define (insert/delta text s . deltas) (define (insert/delta text s . deltas)
(let ([before (send text last-position)]) (define before (send text last-position))
(send text insert s before before #f) (send text insert s before before #f)
(let ([after (send text last-position)]) (define after (send text last-position))
(for-each (λ (delta) (for ([delta (in-list deltas)])
(when (is-a? delta style-delta%) (when (is-a? delta style-delta%)
(send text change-style delta before after))) (send text change-style delta before after)))
deltas) (values before after))
(values before after))))
(define log-max-size 1000) (define log-max-size 1000)
(define log-entry-max-size 1000) (define log-entry-max-size 1000)