From 092df83c18d16e1c8f74e0c2da0e5b74f42c1dd7 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Tue, 28 Jun 2011 17:46:31 -0400
Subject: [PATCH] Have an icon for performance-report.

---
 collects/icons/performance-report.png         | Bin 0 -> 334 bytes
 collects/typed-scheme/optimizer/tool/tool.rkt |  18 +++++-------------
 2 files changed, 5 insertions(+), 13 deletions(-)
 create mode 100644 collects/icons/performance-report.png

diff --git a/collects/icons/performance-report.png b/collects/icons/performance-report.png
new file mode 100644
index 0000000000000000000000000000000000000000..c9c07d62e18e6277aa4b5baade781bc49f3c296a
GIT binary patch
literal 334
zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|*pj^6T^Rm@
z;DWu&Cj&(|3p^r=85p>8L71_DZ^=cVAbW|YuPgg)HW^VZh7gr+6+oeLo-U3d7N?g^
zw&glxAkj9zYw_j>rf+U3dcTykX{hQIsp{Odv!ajh?v{1|cE>p-#huNaOB792?Ys}M
zzyJOB3HOhe46Jj$?o@AT75nchuI$yw{NaMA#siKu4Uryu&VK%*w=~2o$V;^)z+r8)
zwAgK@1?gW-tLSz;S|k(0d^#of*321iBBz}_&f~$sxS??Miz)2!tZIBZjLR1GcuuN$
zFP}SqKAT-*_e{s|(5u;Jcus9%v0(JSy&&)QH?w04GNl@13wYlhJRsaQU9(Jh@xMdT
YEUEYVS8lSo1@sw%r>mdKI;Vst0M0>whyVZp

literal 0
HcmV?d00001

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))