Re: Tk 9: image -format svg -scaletowidth not working?

On Mon, 08 Jul 2024 14:16:45 +0200, Ralf Fassel wrote:

* Mark Summerfield <mark@qtrac.eu>

[snip]

| Can someone tell me what I'm doing wrong?

>

| I'm using Tcl/Tk 9.0b2 on Debian Linux.
 
The manpage says:
 
  Image formats may support sub-options, which are specified using
  additional words in the value to the -format option.
 
This sounds to me as if you need to specify the additional options like
-scaletowidth *with* the -format option, like so:
 
  -format [list svg -scaletowidth 24]
 
instead of
 
  -format svg -scaletowidth 24

Thank you, I'm now using:

proc util::icon {svg {width 0}} {
    set opt [expr {$width ? [list -format [list svg -scaletowidth $width]]
\
        : ""}]
    image create photo -file $::PATH/images/$svg {*}$opt
}

And when I call this for menu items I use:

set width [expr {int(16 * [tk scaling])}]
...
    -image [util::icon new.svg $width]

The 'int' is *essential* since -scaletowidth won't accept a real.

I think adding support for SVG images is a real plus for Tk.