suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added lock-icon

Browse Source 
Changed most *-icon and *-logo function arguments to keyword arguments

text-icon no longer uses font size

Small doc changes

original commit: db57b78e18c174e8aec2266ee384c4052f6f389a
This commit is contained in:
Neil Toronto 2012-06-26 14:58:15 -06:00
parent 12e710ab30
commit adf976fd4d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/macro-debugger/view/stepper.rkt
View File

@ -27,19 +27,19 @@
;; Compiled-in assets (button icons) ;; Compiled-in assets (button icons)
(define navigate-up-icon (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 (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 (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 (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 (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 (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 large-logo (compiled-bitmap (macro-stepper-logo)))
(define (show-about-dialog parent) (define (show-about-dialog parent)