suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Have an icon for performance-report.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-28 17:46:31 -04:00
parent 9640d2bfbc
commit 092df83c18
2 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
collects/icons/performance-report.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 334 B

18
collects/typed-scheme/optimizer/tool/tool.rkt
View File

@ -12,18 +12,10 @@
;; DrRacket tool for reporting missed optimizations in the editor. ;; DrRacket tool for reporting missed optimizations in the editor.
(define reverse-content-bitmap (define performance-report-bitmap
(let* ((bmp (make-bitmap 16 16)) (make-object
(bdc (make-object bitmap-dc% bmp))) bitmap%
(send bdc erase) (collection-file-path "performance-report.png" "icons") 'png/mask))
(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 highlights '()) (define highlights '())
@ -106,5 +98,5 @@
(define performance-report-drracket-button (define performance-report-drracket-button
(list (list
"Performance Report" "Performance Report"
reverse-content-bitmap performance-report-bitmap
performance-report-callback)) performance-report-callback))