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 index fead235..4cbd0bf 100644 --- 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 index 20d56fd..6b19f93 100644 --- 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")))