1a00d2d51f
This removes all the SVG sources, parsing, and marked-layer colorizing, the PNG binaries in the distribution, and the dependence of DrRacket on `slideshow/pict'. Icons are now produced by drawing on a bitmap-dc%, inferring or building a z map, choosing a material, and sending these to a two-pass ray tracer. This is for the most part hidden behind an API consisting of functions from colors and optional sizes and materials to `bitmap%'s. Contracts and documentation forthcoming.
22 lines
641 B
Racket
22 lines
641 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/gui/base
|
|
string-constants/string-constant
|
|
images/icons/tool images/icons/style)
|
|
(provide syncheck-drracket-button
|
|
syncheck-bitmap
|
|
syncheck-small-bitmap
|
|
syncheck:button-callback)
|
|
|
|
(define-local-member-name syncheck:button-callback)
|
|
|
|
(define syncheck-bitmap (check-syntax-icon (toolbar-icon-height)))
|
|
(define syncheck-small-bitmap (small-check-syntax-icon (toolbar-icon-height)))
|
|
|
|
(define syncheck-drracket-button
|
|
(list
|
|
(string-constant check-syntax)
|
|
syncheck-bitmap
|
|
(λ (drs-frame) (send drs-frame syncheck:button-callback))))
|
|
|