commit b00c7de1fd6a3ad78cb191d411f0fe82504ebf96 parent 65ec0e142224b8462880a122a8baa9a0ab384400 Author: Vincent St-Amour <stamourv@racket-lang.org> Date: Mon, 4 Nov 2013 14:31:35 -0500 Fix macro stepper icons. original commit: 9bb80215dbfd9408d5d4c447d408389ddd150461 Diffstat:
| M | pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/syntax-browser/snip-decorated.rkt | | | 6 | +++--- |
| M | pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/view/step-display.rkt | | | 5 | ++--- |
2 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/syntax-browser/snip-decorated.rkt b/pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/syntax-browser/snip-decorated.rkt @@ -181,14 +181,14 @@ (define (show-icon) (make-object image-snip% - (build-path (collection-path "icons") "turn-up.png"))) + (collection-file-path "turn-up.png" "icons"))) (define (hide-icon) (make-object image-snip% - (build-path (collection-path "icons") "turn-down.png"))) + (collection-file-path "turn-down.png" "icons"))) (define (show-properties-icon) (make-object image-snip% - (build-path (collection-path "icons") "syncheck.png"))) + (collection-file-path "syncheck.png" "icons"))) ;; SNIPCLASS diff --git a/pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/view/step-display.rkt b/pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/view/step-display.rkt @@ -260,9 +260,8 @@ (send*/i sbview sb:syntax-browser<%> (add-text (if compact? "" "\n")) (add-text - (make-object image-snip% - (build-path (collection-path "icons") - "red-arrow.bmp"))) + (make-object image-snip% + (collection-file-path "red-arrow.bmp" "icons"))) (add-text " [") (add-text text) (add-text "]\n\n")))