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

made narrow version of macro stepper icon

Browse Source 
moved icons to standard place

svn: r9822
This commit is contained in:
Ryan Culpepper 2008-05-13 04:55:12 +00:00
parent 72cb7a1c0a
commit 42e2611ca1
4 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
collects/icons/macro-stepper-narrow.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 735 B

0
collects/macro-debugger/view/icon-small.png → collects/icons/macro-stepper.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 963 B

After

Width:  |  Height:  |  Size: 963 B

1
collects/macro-debugger/info.ss
View File

@ -1,6 +1,5 @@
#lang setup/infotab #lang setup/infotab
(define tools '(["tool.ss"])) (define tools '(["tool.ss"]))
(define tool-icons '("view/icon-small.png"))
(define tool-names '("Macro Stepper")) (define tool-names '("Macro Stepper"))
(define scribblings '(("macro-debugger.scrbl" () (tool-library)))) (define scribblings '(("macro-debugger.scrbl" () (tool-library))))

10
collects/macro-debugger/tool.ss
View File

@ -57,9 +57,14 @@
(define macro-debugger-bitmap (define macro-debugger-bitmap
(make-object bitmap% (make-object bitmap%
(build-path (collection-path "macro-debugger") "view" "icon-small.png") (build-path (collection-path "icons") "macro-stepper.png")
'png/mask)) 'png/mask))
(define macro-debugger-up-bitmap
(make-object bitmap%
(build-path (collection-path "icons") "macro-stepper-narrow.png")
'png/mask))
(define (macro-debugger-unit-frame-mixin %) (define (macro-debugger-unit-frame-mixin %)
(class % (class %
(super-new) (super-new)
@ -73,6 +78,7 @@
(new switchable-button% (new switchable-button%
(label "Macro Stepper") (label "Macro Stepper")
(bitmap macro-debugger-bitmap) (bitmap macro-debugger-bitmap)
(alternate-bitmap macro-debugger-up-bitmap)
(parent macro-debug-panel) (parent macro-debug-panel)
(callback (λ (button) (execute #t))))) (callback (λ (button) (execute #t)))))