#!/usr/local/bin/wish -f

# Init the TIX package
lappend auto_path ../library
tixInit -libdir ../library -scheme SGIGray -fontset 14Point -binding Motif

proc MkPop {w} {
    menu $w
    $w add command -label Shell           -command {puts Shell}
    $w add command -label Calculator      -command {puts Calculator}
    $w add command -label XTerm           -command {puts XTerm }
    $w add command -label "Manual Pages"  -command {puts "Manual Pages"}
    $w add command -label "Release Notes" -command {puts "Relesae Notes"}
    $w add cascade -label "More ..." -menu $w.more
    menu $w.more
    $w.more add command -label Shell       -command {puts Shell}
    $w.more add command -label Calculator  -command {puts Calculator}
}

tixCreatePopupMenu .pop Tools MkPop
tixPupBindParents .pop .
