proc askUser args {

#$Header: /home/cvsroot/tcldb/ucodb/Tlib/askUser,v 1.1 1999/01/15 00:32:38 de Exp $

        global UserInput UserResp Mode

        if {[info exists Mode]} {
        if {$Mode == "batch"} {
                Error "You can't use Prompt in a batch exec"
                return
        }
        }

	set UserInput ""

        set msg "[stringFix $args]"

        set w .ask
        catch {destroy $w}
        toplevel $w

        message $w.m -text "$msg" -background antiquewhite -aspect 5000 
        entry $w.e -textvariable UserInput -background ivory -relief sunken  -width 40
        button $w.b -text "OK" -background lavender -activebackground lavender  -activeforeground magenta2 -command "set UserResp \$UserInput; destroy $w"
        
        pack $w.m -side top -expand true -fill x
        pack $w.e -side top -expand true -fill x
        pack $w.b -side top -expand true -fill x

}
