# $Header: /home/cvsroot/tcldb/ucodb/Tlib/dictDisp,v 1.2 1998/05/14 01:35:30 de Exp $
# tcl procs saved on Sun Sep 03 16:18:59 PDT 1995

proc dictDisp {tt at bt ju ht} {

    set w .ddictbox
    catch {destroy $w}
    toplevel $w -class Dialog
    wm title $w "$tt"
    wm geometry $w "+150+150"
    wm iconname $w "DataDict"

    frame $w.top -relief raised -border 1
    frame $w.bot -relief raised -border 1
    pack $w.top -side top -fill both -expand true 
    pack $w.bot -side top -fill both -expand true

    case $ju in {
        {l} {
                set just left
        }
        {r} {
                set just right
        }
        {default} {
                set just center
        }
    }

    set font [getFont $w mediumhel]

    message $w.top.hdr -font "$font" -text "$ht" -relief raised -border 0  -aspect 1000 -background antiquewhite
    message $w.top.msg -justify $just -font "$font" -text "$at"  -aspect 500 -background ivory

    pack $w.top.hdr -side top -expand true -ipadx 5 -ipady 5  
    pack $w.top.msg -side top -expand true -ipadx 5 -ipady 5


    button $w.bot.dismiss -text $bt -command "destroy $w" -padx 0 -pady 0 -background white -foreground red -activebackground black -activeforeground yellow

    pack $w.bot.dismiss -expand true -ipadx 12 -ipady 12

    bind $w <Return> "destroy $w"
    focus $w

}

