# interface generated by SpecTcl version 1.0 from /mont-blanc/psh/tcllib/pbuild_3.ui
#   root     is the parent window for this user interface

proc pbuild_3_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	text $base.text#1 \
		-height 0 \
		-relief sunken \
		-width 0 \
		-yscrollcommand "$base.scrollbar#1 set"

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


	# Geometry management

	grid $base.text#1 -in $root	-row 1 -column 1  \
		-columnspan 9 \
		-rowspan 6 \
		-sticky nesw
	grid $base.scrollbar#1 -in $root	-row 1 -column 10  \
		-rowspan 6 \
		-sticky ns

	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 30
	grid rowconfigure $root 2 -weight 0 -minsize 30
	grid rowconfigure $root 3 -weight 1 -minsize 98
	grid rowconfigure $root 4 -weight 0 -minsize 30
	grid rowconfigure $root 5 -weight 0 -minsize 30
	grid rowconfigure $root 6 -weight 0 -minsize 30
	grid columnconfigure $root 1 -weight 0 -minsize 30
	grid columnconfigure $root 2 -weight 0 -minsize 30
	grid columnconfigure $root 3 -weight 0 -minsize 30
	grid columnconfigure $root 4 -weight 0 -minsize 30
	grid columnconfigure $root 5 -weight 0 -minsize 30
	grid columnconfigure $root 6 -weight 0 -minsize 30
	grid columnconfigure $root 7 -weight 0 -minsize 30
	grid columnconfigure $root 8 -weight 0 -minsize 30
	grid columnconfigure $root 9 -weight 0 -minsize 181
	grid columnconfigure $root 10 -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_3"
	pbuild_3_ui .
    }
}
