createIcons.tcl

Go to the documentation of this file.

source library/init.tcl
use_namespace minsky
GUI

minsky.histogramResource.setResource icons/histogram.svg

# create gif icons for the Macintosh, see ticket #187
set ops [availableOperations]
lappend ops "switch"
foreach op $ops {
    # ignore some operations
    switch  $op {
        "numOps" -
        "constant" -
        "copy" -
        "ravel" -
        "integrate"  continue 
    }
    image create photo [set op]Img -width 30 -height 24
    operationIcon [set op]Img "$op"
    # I don't like the hardcoded background value here, but the
    # transparent icons appear ghastly on the Mac. The value #f0f0f0
    # is a resonable compormise
    #[set op]Img write icons/$op.gif  -background #f0f0f0 -format gif
    [set op]Img write icons/tmp.ppm -background #f0f0f0 -format ppm
    catch {exec -- ppmtogif -transparent #f0f0f0 icons/tmp.ppm > icons/$op.gif}
}
tcl_exit