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

proc pref_format_ui {root args} {
        global ChangeVarInfo GidPriv

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}

	TitleFrame $base.rf -text [_ "Results format"] -bd 2 -relief ridge
	set f [ $base.rf getframe]
	label $f.l1 -text [_ "Legend format:"]
	entry $f.e1 -bd 1 -width 6 -textvariable ChangeVarInfo(PostLegendFormat)
	label $f.l2 -text [_ "Scalar label format:"]
	entry $f.e2 -bd 1 -width 6 -textvariable ChangeVarInfo(PostScalarFormat)
	label $f.l3 -text [_ "Vector label format:"]
	entry $f.e3 -bd 1 -width 6 -textvariable ChangeVarInfo(PostVectorFormat)
	label $f.l4 -text [_ "Matrix label format:"]
	entry $f.e4 -bd 1 -width 6 -textvariable ChangeVarInfo(PostMatrixFormat)

	grid $f.l1 $f.e1 -padx 4 -pady 2 -ipadx 2 -sticky e
	grid conf $f.e1 -sticky w
	grid $f.l2 $f.e2 -padx 4 -pady 2 -ipadx 2 -sticky e
	grid conf $f.e2 -sticky w
	grid $f.l3 $f.e3 -padx 4 -pady 2 -ipadx 2 -sticky e
	grid conf $f.e3 -sticky w
	grid $f.l4 $f.e4 -padx 4 -pady 2 -ipadx 2 -sticky e
	grid conf $f.e4 -sticky w

	grid rowconfigure $f 0 -weight 1
	grid rowconfigure $f 1 -weight 1
	grid rowconfigure $f 2 -weight 1
	grid rowconfigure $f 3 -weight 1
	grid columnconfigure $f 0 -weight 1
	grid columnconfigure $f 1 -weight 1

	TitleFrame $base.gf -text [_ "Generic format"] -bd 2 -relief ridge
	set f [ $base.gf getframe]
	label $f.l1 -text [_ "Real format:"]
	entry $f.e1 -bd 1 -width 6 -textvariable ChangeVarInfo(RealFormat,Default)
	grid $f.l1 $f.e1 -padx 4 -pady 2 -ipadx 2 -sticky e
	grid conf $f.e1 -sticky w
	grid rowconfigure $f 0 -weight 1
	grid columnconfigure $f 0 -weight 1
	grid columnconfigure $f 1 -weight 1


	grid $base.rf -sticky nsew -padx 2 -pady 2
	grid $base.gf -sticky new -padx 2 -pady 2

	grid rowconfigure $base 1 -weight 1
	grid columnconfigure $base 0 -weight 1

	set ChangeVarInfo(BasePostWin) $base


# end additional interface code

}


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

catch {
    if {$argv0 == [info script]} {
	wm title . [_ "Testing pref_format"]
	pref_format_ui .
    }
}
