Hi,all image create photo image

[waistcoat]

Hi,all
image create photo image1a -file [file join $tk_library demos images Lb1.gif]
Above is part of my program.The first time I ran it in
the program.It works well.But when I saved it and open it
again,it can not work.
Error:cannot read "tk_library":no such variable.
Can anyone tell me where is wrong?
THANKS

 

[ulis]

I guess that the first time you evaled the line at a global level and the second time inside a proc.

tk_library is defined at the global level and its use needs:
- a global tk_library declaration inside the proc
- or the ::tk_library syntax.

  # case 1
  proc myproc1 {args}   {
    global tk_library
    ...
    image create photo image1a -file [file join $tk_library demos images Lb1.gif]
    ...
  }
  # case 2
  proc myproc2 {args}   {
    ...
    image create photo image1a -file [file join $::tk_library demos images Lb1.gif]
    ...
  }

My preference is for the :: syntax that is coherent with the namespace syntax.

HTH

ulis