made narrow version of macro stepper icon
moved icons to standard place svn: r9822
This commit is contained in:
parent
72cb7a1c0a
commit
42e2611ca1
BIN
collects/icons/macro-stepper-narrow.png
Normal file
BIN
collects/icons/macro-stepper-narrow.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 735 B |
Before Width: | Height: | Size: 963 B After Width: | Height: | Size: 963 B |
|
@ -1,6 +1,5 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define tools '(["tool.ss"]))
|
||||
(define tool-icons '("view/icon-small.png"))
|
||||
(define tool-names '("Macro Stepper"))
|
||||
(define scribblings '(("macro-debugger.scrbl" () (tool-library))))
|
||||
|
|
|
@ -57,7 +57,12 @@
|
|||
|
||||
(define macro-debugger-bitmap
|
||||
(make-object bitmap%
|
||||
(build-path (collection-path "macro-debugger") "view" "icon-small.png")
|
||||
(build-path (collection-path "icons") "macro-stepper.png")
|
||||
'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 %)
|
||||
|
@ -73,6 +78,7 @@
|
|||
(new switchable-button%
|
||||
(label "Macro Stepper")
|
||||
(bitmap macro-debugger-bitmap)
|
||||
(alternate-bitmap macro-debugger-up-bitmap)
|
||||
(parent macro-debug-panel)
|
||||
(callback (λ (button) (execute #t)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user