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

gui-debugger: update icons using Neil's icon set.

Browse Source
This commit is contained in:
Asumu Takikawa 2012-02-23 19:27:26 -05:00
parent 4f982fddfd
commit 41f60ac95f
1 changed files with 34 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
collects/gui-debugger/debug-tool.rkt
View File

@ -17,7 +17,14 @@
string-constants string-constants
lang/debugger-language-interface lang/debugger-language-interface
images/compile-time images/compile-time
(for-syntax images/icons/tool)) (for-syntax racket/class
racket/draw
images/icons/arrow
images/icons/control
images/icons/style
images/icons/symbol
images/icons/tool
slideshow/pict))
(provide tool@) (provide tool@)
@ -1083,30 +1090,34 @@
(send (get-frame) hide-debug)) (send (get-frame) hide-debug))
(super-new))) (super-new)))
;; define icons for the tool and debug panel
(define debug-bitmap (compiled-bitmap (debugger-icon))) (define debug-bitmap (compiled-bitmap (debugger-icon)))
(define small-debug-bitmap (compiled-bitmap (small-debugger-icon))) (define small-debug-bitmap (compiled-bitmap (small-debugger-icon)))
(define over-bitmap
(define make-pause-label (compiled-bitmap
(bitmap-label-maker (pict->bitmap
"Pause" (cc-superimpose (bitmap (text-icon "()"
(build-path (collection-path "gui-debugger" "icons") "pause.png"))) (make-object font%)
(define make-resume-label syntax-icon-color))
(bitmap-label-maker (bitmap (right-over-arrow-icon run-icon-color))))))
"Go" (define out-bitmap
(build-path (collection-path "gui-debugger" "icons") "resume.png"))) (compiled-bitmap
(define make-step-label (pict->bitmap
(bitmap-label-maker (hc-append
"Step" -8
(build-path (collection-path "gui-debugger" "icons") "step.png"))) (bitmap (text-icon "()" (make-object font%) syntax-icon-color))
(define make-over-label (bitmap (right-arrow-icon run-icon-color 19))))))
(bitmap-label-maker
"Over" (define pause-bitmap (compiled-bitmap (pause-icon run-icon-color)))
(build-path (collection-path "gui-debugger" "icons") "step-over2.png"))) (define resume-bitmap (compiled-bitmap (play-icon run-icon-color)))
(define make-out-label (define step-bitmap (compiled-bitmap (step-icon run-icon-color)))
(bitmap-label-maker
"Out" (define make-pause-label (bitmap-label-maker "Pause" pause-bitmap))
(build-path (collection-path "gui-debugger" "icons") "step-out2.png"))) (define make-resume-label (bitmap-label-maker "Go" resume-bitmap))
(define make-step-label (bitmap-label-maker "Step" step-bitmap))
(define make-over-label (bitmap-label-maker "Over" over-bitmap))
(define make-out-label (bitmap-label-maker "Out" out-bitmap))
(define (debug-unit-frame-mixin super%) (define (debug-unit-frame-mixin super%)
(class super% (class super%