Re: Image background

      proc SetTransparentColor { phImg { red 255 } { green 255 } { blue 255 } } {
         set colorStr [format "#%02x%02x%02x" $red $green $blue]
         set y 0
         foreach row [$phImg data] {
             set x 0
             foreach pixel $row {
                 if { $colorStr eq $pixel } {
                     $phImg transparency set $x $y 1
                 }
                 incr x
             }
             incr y
         }
     }
 Paul