39 lines
921 B
Tcl
39 lines
921 B
Tcl
#set oldpwd [pwd]
|
|
#cd C:/Tcl/lib/tcl8.4
|
|
#foreach f [glob *.tcl] {
|
|
# source C:/Tcl/lib/tcl8.4/$f
|
|
#}
|
|
#set ::auto_path C:\\Tcl\\lib
|
|
#set tcl_library C:/Tcl/lib
|
|
#source C:/Tcl/lib/tcl8.4/init.tcl
|
|
#set dir C:/Tcl/lib/tcl8.4/
|
|
#source $dir/tclIndex
|
|
#puts "tclIndex: [array names auto_index]"
|
|
#source C:/Tcl/lib/tcl8.4/auto.tcl
|
|
#set dir C:/Tcl/lib/tk8.4/
|
|
#source C:/Tcl/lib/tk8.4/tclIndex
|
|
|
|
#lappend auto_path C:/Tcl/lib
|
|
#puts "auto_path: [set auto_path]"
|
|
#puts "tcl_library: [set tcl_library]"
|
|
#puts "tcl_platform: [array get tcl_platform]"
|
|
#puts "packages: [package names]"
|
|
#puts "tclIndex: [array names auto_index]"
|
|
|
|
#package require dde
|
|
#load C:/Tcl/lib/dde1.2/tcldde12.dll dde
|
|
|
|
#load C:/Tcl/bin/tk84.dll tk
|
|
package require Tk
|
|
|
|
wm deiconify .
|
|
|
|
set cobol_fields {
|
|
nome 15
|
|
}
|
|
|
|
pack [button .b -text do_exit -command do_exit] \
|
|
[label .lb -bg white -relief sunken -bd 2 -textvariable nome \
|
|
-padx 5 -pady 5] -pady 5 -padx 6
|
|
|