proc userCustom {} {

	global sybmsg

        set w .custom
        toplevel $w -class Dialog
        wm title $w "User Customizations"
        wm iconname $w "Custom"

        frame $w.f1 
	frame $w.b1 

        grid columnconfigure $w.f1 0 -minsize 100
        grid columnconfigure $w.f1 1 -minsize 100

        label $w.f1.labd -width 20 -justify left -text "Date Format"
        grid $w.f1.labd -row 0 -column 0 -in $w.f1 
        label $w.f1.labp -width 20 -justify left -text "F.P. Precision"
        grid $w.f1.labp -row 1 -column 0 -in $w.f1 

	entry $w.f1.datee -width 40 -relief sunken -border 1 \
		-textvariable sybmsg(dateformat) -background ivory
	entry $w.f1.fppe -width 40 -relief sunken -border 1 \
		-textvariable sybmsg(floatprec) -background ivory
	grid $w.f1.datee -row 0 -column 1 -in $w.f1 -sticky w
	grid $w.f1.fppe -row 1 -column 1 -in $w.f1 -sticky w
	
	button $w.b1.bye -text "Quit" -command "destroy $w"

	pack $w.b1.bye -side right

	pack $w.f1 -side top
	pack $w.b1 -side top
	
	focus $w.f1.datee

}

