diff --git a/collects/icons/performance-report.png b/collects/icons/performance-report.png new file mode 100644 index 0000000000..c9c07d62e1 Binary files /dev/null and b/collects/icons/performance-report.png differ diff --git a/collects/typed-scheme/optimizer/tool/tool.rkt b/collects/typed-scheme/optimizer/tool/tool.rkt index eee83dae18..8b24275798 100644 --- a/collects/typed-scheme/optimizer/tool/tool.rkt +++ b/collects/typed-scheme/optimizer/tool/tool.rkt @@ -12,18 +12,10 @@ ;; DrRacket tool for reporting missed optimizations in the editor. -(define reverse-content-bitmap - (let* ((bmp (make-bitmap 16 16)) - (bdc (make-object bitmap-dc% bmp))) - (send bdc erase) - (send bdc set-smoothing 'smoothed) - (send bdc set-pen "black" 1 'transparent) - (send bdc set-brush "blue" 'solid) - (send bdc draw-ellipse 2 2 8 8) - (send bdc set-brush "red" 'solid) - (send bdc draw-ellipse 6 6 8 8) - (send bdc set-bitmap #f) - bmp)) +(define performance-report-bitmap + (make-object + bitmap% + (collection-file-path "performance-report.png" "icons") 'png/mask)) (define highlights '()) @@ -106,5 +98,5 @@ (define performance-report-drracket-button (list "Performance Report" - reverse-content-bitmap + performance-report-bitmap performance-report-callback))