MenuTarget
"zoom-menu"
{}
{ /Menu 
    [(Biggest) (Out) (Smallest) (In)]
    [{}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}