diff --git a/collects/icons/macro-stepper-narrow.png b/collects/icons/macro-stepper-narrow.png new file mode 100644 index 0000000000..ed70f77716 Binary files /dev/null and b/collects/icons/macro-stepper-narrow.png differ diff --git a/collects/macro-debugger/view/icon-small.png b/collects/icons/macro-stepper.png similarity index 100% rename from collects/macro-debugger/view/icon-small.png rename to collects/icons/macro-stepper.png diff --git a/collects/macro-debugger/info.ss b/collects/macro-debugger/info.ss index 9309a19657..55db6ff945 100644 --- a/collects/macro-debugger/info.ss +++ b/collects/macro-debugger/info.ss @@ -1,6 +1,5 @@ #lang setup/infotab (define tools '(["tool.ss"])) -(define tool-icons '("view/icon-small.png")) (define tool-names '("Macro Stepper")) (define scribblings '(("macro-debugger.scrbl" () (tool-library)))) diff --git a/collects/macro-debugger/tool.ss b/collects/macro-debugger/tool.ss index c7f2ecacb6..62746eca22 100644 --- a/collects/macro-debugger/tool.ss +++ b/collects/macro-debugger/tool.ss @@ -57,9 +57,14 @@ (define macro-debugger-bitmap (make-object bitmap% - (build-path (collection-path "macro-debugger") "view" "icon-small.png") + (build-path (collection-path "icons") "macro-stepper.png") 'png/mask)) - + + (define macro-debugger-up-bitmap + (make-object bitmap% + (build-path (collection-path "icons") "macro-stepper-narrow.png") + 'png/mask)) + (define (macro-debugger-unit-frame-mixin %) (class % (super-new) @@ -73,6 +78,7 @@ (new switchable-button% (label "Macro Stepper") (bitmap macro-debugger-bitmap) + (alternate-bitmap macro-debugger-up-bitmap) (parent macro-debug-panel) (callback (λ (button) (execute #t)))))