From adf976fd4dc636179d921ab00d74d1aa083e1886 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Tue, 26 Jun 2012 14:58:15 -0600 Subject: [PATCH] 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 --- 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 index 8b7c340..2312993 100644 --- 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)