package tk is not loaded statically

[adekunleadekoya]

/***********************
socket -server Accept 7000

proc Accept { sock addr port} {
server_delete_interp $sock
interp create interp_$sock
load {} tk interp_$sock

}
*************************/

I run the above tcl/tk code.

I effected a telnet connection to the server from another machine and the server responded with an error message that goes thus " package tk is not loaded statically ".

I suppose the tk package that encapsulates the tcl/tk interpreter is not loaded ?

Any walkaround to solving this ?

 

[adekunleadekoya]

i have solved this

i just added this line
/*******************
package require Tk
********************/

Tanks