Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/wish
package require Img
set fdata [read [open "/test/colorcube.png"]]
label .l1 -image [image create photo -format png -data $fdata]
pack .l1
  2. or download this
    couldn't recognise image data while executing 
"image create photo -format png -data $fdata" 
invoked from within 
"labal,l1 -image [image create photo -format png -data $fdata]" 
(file c:\Tcl\test\test.tcl" line 4)