commit adf976fd4dc636179d921ab00d74d1aa083e1886 parent 12e710ab30b7792ffa46b57d5a424eed3bbbc3bf Author: Neil Toronto <ntoronto@racket-lang.org> Date: Tue, 26 Jun 2012 14:58:15 -0600 Added lock-icon Changed most *-icon and *-logo function arguments to keyword arguments text-icon no longer uses font size Small doc changes original commit: db57b78e18c174e8aec2266ee384c4052f6f389a Diffstat:
| M | collects/macro-debugger/view/stepper.rkt | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/collects/macro-debugger/view/stepper.rkt b/collects/macro-debugger/view/stepper.rkt @@ -27,19 +27,19 @@ ;; Compiled-in assets (button icons) (define navigate-up-icon - (compiled-bitmap (up-arrow-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (up-arrow-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) (define navigate-to-start-icon - (compiled-bitmap (search-backward-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (search-backward-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) (define navigate-previous-icon - (compiled-bitmap (step-back-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (step-back-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) (define navigate-next-icon - (compiled-bitmap (step-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (step-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) (define navigate-to-end-icon - (compiled-bitmap (search-forward-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (search-forward-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) (define navigate-down-icon - (compiled-bitmap (down-arrow-icon syntax-icon-color (toolbar-icon-height)))) + (compiled-bitmap (down-arrow-icon #:color syntax-icon-color #:height (toolbar-icon-height)))) -(define small-logo (compiled-bitmap (macro-stepper-logo 32))) +(define small-logo (compiled-bitmap (macro-stepper-logo #:height 32))) (define large-logo (compiled-bitmap (macro-stepper-logo))) (define (show-about-dialog parent)