i have no tktable.dll

(i have Wish84, VisualTcl, SpecTcl, Ased, but they dont contain it..)
the spectcl made it:
# interface generated by SpecTcl version 1.1 from C:/Program Files/SpecTcl1.1/demo/adatbe.ui
# root is the parent window for this user interface
proc adatbe_ui {root args} {
# this treats "." as a special case
if {$root == "."} {
set base ""
} else {
set base $root
}
label $base.label#1 \
-text El?gyártmány:
catch {
$base.label#1 configure \
-font -*-Helvetica-Bold-R-Normal-*-*-140-*-*-*-*-*-*
}
entry $base.entry#1 \
-highlightthickness 2 \
-textvariable Stock \
-width 25
catch {
$base.entry#1 configure \
-font -*-Helvetica-Medium-R-Normal-*-*-140-*-*-*-*-*-*
}
checkbutton $base.checkbutton#1 \
-command {.entry#2 configure –background white} \
-text Elektróda \
-textvariable textvar \
-variable elektrode
label $base.label#2 \
-text Nullpont:
catch {
$base.label#2 configure \
-font -*-Helvetica-Bold-R-Normal-*-*-140-*-*-*-*-*-*
}
entry $base.entry#2 \
-background grey \
-highlightthickness 2 \
-selectbackground grey \
-state disabled \
-textvariable MCS0
catch {
$base.entry#2 configure \
-font -*-Helvetica-Medium-R-Normal-*-*-140-*-*-*-*-*-*
}
button $base.button#2 \
-command exit \
-text ESC
button $base.button#3 \
-command {set MCSorigin .MCS0; set stock .stock; exit} \
-padx 210 \
-text OK
# Geometry management
grid $base.label#1 -in $root -row 1 -column 1 \
-sticky e
grid $base.entry#1 -in $root -row 1 -column 2 \
-columnspan 2 \
-sticky ew
grid $base.checkbutton#1 -in $root -row 2 -column 1
grid $base.label#2 -in $root -row 2 -column 2 \
-sticky e
grid $base.entry#2 -in $root -row 2 -column 3 \
-sticky ew
grid $base.button#2 -in $root -row 3 -column 1
grid $base.button#3 -in $root -row 3 -column 2 \
-columnspan 2
# Resize behavior management
grid rowconfigure $root 1 -weight 0 -minsize 1
grid rowconfigure $root 2 -weight 0 -minsize 30
grid rowconfigure $root 3 -weight 0 -minsize 30
grid columnconfigure $root 1 -weight 0 -minsize 28
grid columnconfigure $root 2 -weight 0 -minsize 30
grid columnconfigure $root 3 -weight 0 -minsize 400
# additional interface code
# end additional interface code
}
# Allow interface to be run "stand-alone" for testing
catch {
if [info exists embed_args] {
# we are running in the plugin
adatbe_ui .
} else {
# we are running in stand-alone mode
if {$argv0 == [info script]} {
wm title . "Testing adatbe_ui"
adatbe_ui .
}
}
}
it looks fine, but not works...my software's integrated tcl shell may not understand...
