# interface generated by SpecTcl version 1.0 from /tmp/pbuild_2.ui
#   root     is the parent window for this user interface

proc pbuild_2_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	label $base.label#3 \
		-text {Description of Fieldname:}

	text $base.text#1 \
		-height 0 \
		-width 0 \
		-relief sunken \
		-yscrollcommand "$base.scrollbar#1 set"

	scrollbar $base.scrollbar#1 \
		-command "$base.text#1 yview" \
		-orient v

	label $base.label#4 \
		-text {Current Value:}

	message $base.message#1

	label $base.label#2 \
		-text {New Value:}

	entry $base.entry#3 \
		-textvariable fValue


	# Geometry management

	grid $base.label#3 -in $root	-row 1 -column 1  \
		-columnspan 4
	grid $base.text#1 -in $root	-row 2 -column 1  \
		-columnspan 2 \
		-sticky nesw
	grid $base.scrollbar#1 -in $root	-row 2 -column 4  \
		-sticky ns
	grid $base.label#4 -in $root	-row 3 -column 1 
	grid $base.message#1 -in $root	-row 3 -column 2  \
		-columnspan 3 \
		-sticky nesw
	grid $base.label#2 -in $root	-row 4 -column 1 
	grid $base.entry#3 -in $root	-row 4 -column 2  \
		-columnspan 3

	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 30
	grid rowconfigure $root 2 -weight 1 -minsize 149
	grid rowconfigure $root 3 -weight 0 -minsize 30
	grid rowconfigure $root 4 -weight 0 -minsize 30
	grid columnconfigure $root 1 -weight 0 -minsize 318
	grid columnconfigure $root 2 -weight 0 -minsize 153
	grid columnconfigure $root 3 -weight 0 -minsize 2
	grid columnconfigure $root 4 -weight 0 -minsize 30
# additional interface code
# end additional interface code

}


# Allow interface to be run "stand-alone" for testing

catch {
    if {$argv0 == [info script]} {
	wm title . "Testing pbuild_2"
	pbuild_2_ui .
    }
}
