# icons.tcl -- # # A set of stock icons for use in Tk dialogs. The icons used here # were provided by the Vimix Icon Theme project, which provides a # unified set of high quality icons licensed under the # Creative Commons Attribution Share-Alike license # (https://creativecommons.org/licenses/by-sa/4.0/) # # See https://github.com/vinceliuice/vimix-icon-theme # # Copyright © 2009 Pat Thoyts # Copyright © 2022 Harald Oehlmann # Copyright © 2022 Csaba Nemethi namespace eval ::tk::icons {} variable ::tk::svgFmt [list svg -scale [expr {[::tk::ScalingPct] / 100.0}]] image create photo ::tk::icons::error -format $::tk::svgFmt -data { } image create photo ::tk::icons::warning -format $::tk::svgFmt -data { } image create photo ::tk::icons::information -format $::tk::svgFmt -data { } image create photo ::tk::icons::question -format $::tk::svgFmt -data { }