ed172a81fa
Began scribble docs
Added `compiled-bitmap' and `compiled-bitmap-list', which embed bitmaps
computed at expansion time into compiled files (safe 3D values)
Please merge into release
(cherry picked from commit 4d1cedc913)
25 lines
735 B
Racket
25 lines
735 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/gui/base
|
|
string-constants/string-constant
|
|
images/compile-time
|
|
(for-syntax racket/base 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
|
|
(compiled-bitmap (check-syntax-icon (toolbar-icon-height))))
|
|
(define syncheck-small-bitmap
|
|
(compiled-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))))
|
|
|