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 }