proc MkPopDialog1 {} {
    set w .popup

    if [winfo exists $w] {
	return
    }
    if {![winfo exists .pop]} {
	tixCreatePopupMenu .pop Tools MkPop
    }
    toplevel $w
    wm title $w "Popup Menu"
    frame $w.top -relief raised -border 1
    message $w.top.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-* \
	-relief sunken -bd 1 -anchor n -padx 40 -width 370\
	-text {

Popup Menus

You can use the command "tixCreatePopupMenu" to create a popup \
menu. You can open a pop menu from this window by holding down the \
right mouse button.
}
    tixDlgBtns $w.btns
    $w.btns add close -text "Close"   -width 8

    pack $w.top.msg -expand yes -fill both -padx 10 -pady 10
    pack $w.top -expand yes -fill both 
    pack $w.btns -fill x

    $w.btns button close config -command "destroy $w; destroy .pop"

    tixPupBindParents .pop $w $w.top.msg $w.top $w.btns 
}

proc MkPop {w} {
    menu $w
    $w add command -label Shell
    $w add command -label Calculator
    $w add command -label XTerm
    $w add command -label "Manual Pages"
    $w add command -label "Release Notes"

}
