<target
  class="MenuTarget"
  name="days-menu"
  path="doc/obj/days-menu.tn0.xml"
><![CDATA[
MenuTarget
"days-menu"
{}
{ /Menu 
    [(Wednesday) (Thursday) (Friday) (Saturday) 
     (Today) (Sunday) (Monday) (Tuesday)]
    [{currentcursorlocation [currentkey] popmsg}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}
]]></target>

