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

Fix macro stepper icons.

Browse Source 
original commit: 9bb80215dbfd9408d5d4c447d408389ddd150461
This commit is contained in:
Vincent St-Amour 2013-11-04 14:31:35 -05:00
parent 65ec0e1422
commit b00c7de1fd
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/syntax-browser/snip-decorated.rkt
View File

@ -181,14 +181,14 @@
(define (show-icon) (define (show-icon)
(make-object image-snip% (make-object image-snip%
(build-path (collection-path "icons") "turn-up.png"))) (collection-file-path "turn-up.png" "icons")))
(define (hide-icon) (define (hide-icon)
(make-object image-snip% (make-object image-snip%
(build-path (collection-path "icons") "turn-down.png"))) (collection-file-path "turn-down.png" "icons")))
(define (show-properties-icon) (define (show-properties-icon)
(make-object image-snip% (make-object image-snip%
(build-path (collection-path "icons") "syncheck.png"))) (collection-file-path "syncheck.png" "icons")))
;; SNIPCLASS ;; SNIPCLASS

5
pkgs/macro-debugger-pkgs/macro-debugger/macro-debugger/view/step-display.rkt
View File

@ -260,9 +260,8 @@
(send*/i sbview sb:syntax-browser<%> (send*/i sbview sb:syntax-browser<%>
(add-text (if compact? "" "\n")) (add-text (if compact? "" "\n"))
(add-text (add-text
(make-object image-snip% (make-object image-snip%
(build-path (collection-path "icons") (collection-file-path "red-arrow.bmp" "icons")))
"red-arrow.bmp")))
(add-text " [") (add-text " [")
(add-text text) (add-text text)
(add-text "]\n\n"))) (add-text "]\n\n")))