TopButtons.load

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