28 lines
968 B
Racket
28 lines
968 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/gui/base
|
|
string-constants/string-constant
|
|
icons slideshow/pict)
|
|
(provide syncheck-drracket-button
|
|
syncheck-bitmap
|
|
syncheck-small-bitmap
|
|
syncheck:button-callback)
|
|
|
|
(define-local-member-name syncheck:button-callback)
|
|
|
|
(define syncheck-bitmap
|
|
(pict->bitmap (hb-append (magnifying-glass-left-icon-pict (* 7/8 (toolbar-icon-height)))
|
|
(check-icon-pict 'green (toolbar-icon-height)))))
|
|
|
|
(define syncheck-small-bitmap
|
|
(pict->bitmap (rb-superimpose (hc-append (check-icon-pict 'green (toolbar-icon-height))
|
|
(blank (* 1/4 (toolbar-icon-height))))
|
|
(magnifying-glass-icon-pict (* 3/4 (toolbar-icon-height))))))
|
|
|
|
(define syncheck-drracket-button
|
|
(list
|
|
(string-constant check-syntax)
|
|
syncheck-bitmap
|
|
(λ (drs-frame) (send drs-frame syncheck:button-callback))))
|
|
|