# interface generated by SpecTcl version 1.1 from C:/Program Files/SpecTcl1.1/demo/test1.ui
#   root     is the parent window for this user interface

proc test1_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	button $base.button#1 \
		-command lametest \
		-text button

	entry $base.entry#1 \
		-textvariable entry


	# Geometry management

	grid $base.button#1 -in $root	-row 1 -column 2 
	grid $base.entry#1 -in $root	-row 2 -column 2 

	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 30
	grid rowconfigure $root 2 -weight 0 -minsize 77
	grid columnconfigure $root 1 -weight 0 -minsize 30
	grid columnconfigure $root 2 -weight 0 -minsize 238
# 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
	test1_ui .
    } else {
	# we are running in stand-alone mode
	if {$argv0 == [info script]} {
	    wm title . "Testing test1_ui"
	    test1_ui .
	}
    }
}

proc lametest {} {
	wm title . "[.entry#1 get]"
}