<> <> <<>> Install PopUpMenus Run RegularExpressionPackage Run DFUtilitiesExtrasImpl Run TopButtonsImpl <<-- Sorry to use the interpreter, but it does not seem to be possible to do the following in a clean way!>> _ IF (&v _ ViewerOps.FindViewer["New"])#NIL THEN Buttons.ReLabel[&v, "Doc"] ELSE NIL _ ViewerOps.FindViewer["Open"].data.proc _ TopButtonsImpl.Open _ ViewerOps.FindViewer["Doc"].data.proc _ TopButtonsImpl.Doc _ ViewerOps.FindViewer["Doc"].data.fork _ TRUE