changed slant to italic
svn: r5652
This commit is contained in:
parent
097fb4be88
commit
9d241aa2c5
|
@ -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%)
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user