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

proc pbuild_1_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	label $base.label#3 \
		-text {Choose Protocol Family:}
	catch {
		$base.label#3 configure \
			-font {-*-interface user-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
	}

	menubutton $base.menubutton#2 \
		-menu "$base.menubutton#2.p1" \
		-relief raised \
		-text Click
	catch {
		$base.menubutton#2 configure \
			-font {-*-interface user-Bold-R-Normal-*-*-120-*-*-*-*-*-*}
	}

	label $base.label#1 \
		-text {Name of Packet:}
	catch {
		$base.label#1 configure \
			-font {-*-interface user-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
	}

	entry $base.entry#1 \
		-textvariable newpkt
	catch {
		$base.entry#1 configure \
			-font {-*-interface user-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
	}

	label $base.label#2 \
		-text {Optional Arguments:}
	catch {
		$base.label#2 configure \
			-font {-*-interface user-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
	}

	entry $base.entry#2 \
		-textvariable newpkt_args
	catch {
		$base.entry#2 configure \
			-font {-*-interface user-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
	}


	# Geometry management

	grid $base.label#3 -in $root	-row 2 -column 2 
	grid $base.menubutton#2 -in $root	-row 2 -column 3 
	grid $base.label#1 -in $root	-row 6 -column 2 
	grid $base.entry#1 -in $root	-row 6 -column 4 
	grid $base.label#2 -in $root	-row 7 -column 2 
	grid $base.entry#2 -in $root	-row 7 -column 4 

	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 30
	grid rowconfigure $root 2 -weight 0 -minsize 30
	grid rowconfigure $root 3 -weight 0 -minsize 30
	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 rowconfigure $root 7 -weight 0 -minsize 30
	grid rowconfigure $root 8 -weight 0 -minsize 30
	grid rowconfigure $root 9 -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
# 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_1"
	pbuild_1_ui .
    }
}
