tweaks to 2f2bbd09cc
This commit is contained in:
parent
ce2d047042
commit
983a811c96
|
@ -1,4 +1,4 @@
|
||||||
#lang racket
|
#lang racket/base
|
||||||
(require racket/unit
|
(require racket/unit
|
||||||
racket/class
|
racket/class
|
||||||
"browser-sig.rkt"
|
"browser-sig.rkt"
|
||||||
|
@ -7,7 +7,7 @@
|
||||||
"private/bullet.rkt"
|
"private/bullet.rkt"
|
||||||
net/url
|
net/url
|
||||||
net/url-sig
|
net/url-sig
|
||||||
racket/gui
|
racket/gui/base
|
||||||
mred/mred-unit
|
mred/mred-unit
|
||||||
mred/mred-sig
|
mred/mred-sig
|
||||||
browser/external)
|
browser/external)
|
||||||
|
@ -32,7 +32,7 @@
|
||||||
post-url))
|
post-url))
|
||||||
|
|
||||||
(define url-delta (make-object style-delta% 'change-underline #t))
|
(define url-delta (make-object style-delta% 'change-underline #t))
|
||||||
(send url-delta set-delta-foreground "blue")
|
(void (send url-delta set-delta-foreground "blue"))
|
||||||
|
|
||||||
(define html-text-mixin
|
(define html-text-mixin
|
||||||
(mixin ((class->interface text%)) (html-text<%>)
|
(mixin ((class->interface text%)) (html-text<%>)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user