4012373a8c
- SVG icon sources - Playback-style icons, logos, stop signs, magnifying glasses, etc., in diffuse and shiny styles - Program to pre-render SVG files (icons/private/svg/render-png.rkt) - Pre-rendered icons (PNGs in power-of-2 sizes) - Made `icons' a module, with functions to conveniently load icons and convert to/from picts - Scribble docs for `icons' - Used new icons in DrRacket toolbar
22 lines
610 B
Racket
22 lines
610 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/gui/base
|
|
string-constants/string-constant
|
|
icons)
|
|
(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 (check-syntax-small-icon (toolbar-icon-height)))
|
|
|
|
(define syncheck-drracket-button
|
|
(list
|
|
(string-constant check-syntax)
|
|
syncheck-bitmap
|
|
(λ (drs-frame) (send drs-frame syncheck:button-callback))))
|
|
|