MenuTarget
"tree-menu"
{}
{ /Menu 
    [(Parent) (Right) (Left)]
    [{currentcursorlocation [currentkey] popmsg}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}