changed slant to italic

svn: r5652
This commit is contained in:
Robby Findler 2007-02-21 02:46:43 +00:00
parent 097fb4be88
commit 9d241aa2c5
4 changed files with 4 additions and 4 deletions

View File

@ -63,7 +63,7 @@ profile todo:
(define (get-cm-key) cm-key)
;; error-delta : (instanceof style-delta%)
(define error-delta (make-object style-delta% 'change-style 'slant))
(define error-delta (make-object style-delta% 'change-style 'italic))
(send error-delta set-delta-foreground (make-object color% 255 0 0))
;; error-color : (instanceof color%)

View File

@ -419,7 +419,7 @@ TODO
(define result-delta (make-object style-delta%)) ; used to be 'change-weight 'bold
(define error-delta (make-object style-delta%
'change-style
'slant))
'italic))
(send error-delta set-delta-foreground (make-object color% 255 0 0))
(send result-delta set-delta-foreground (make-object color% 0 0 175))
(send output-delta set-delta-foreground (make-object color% 150 0 150))

View File

@ -1146,7 +1146,7 @@ If the namespace does not, they are colored the unbound color.
(remove check-syntax-button-parent-panel l))))
(update-button-visibility/tab (get-current-tab))))
(define report-error-style (make-object style-delta% 'change-style 'slant))
(define report-error-style (make-object style-delta% 'change-style 'italic))
(send report-error-style set-delta-foreground "red")
(define (add-check-syntax-key-bindings keymap)

View File

@ -57,7 +57,7 @@
(define slant-check
(make-check (string-constant cs-italic)
(λ (delta)
(send delta set-style-on 'slant)
(send delta set-style-on 'italic)
(send delta set-style-off 'base))
(λ (delta)
(send delta set-style-on 'normal)