#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