<> <> <<>> <> DIRECTORY Buttons USING [ButtonProc, Create], ViewerOps USING [CreateViewer]; TestViewers: CEDAR MONITOR IMPORTS Buttons, ViewerOps = BEGIN BoomButtonProc: ENTRY Buttons.ButtonProc = { <<[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]>> [] _ ViewerOps.CreateViewer[flavor: $Kaboom] }; [] _ Buttons.Create[ info: [ name: "Boom", parent: NIL], proc: BoomButtonProc, documentation: "Tests Viewer creation with unregistered flavor."];END. CHANGE LOG Created by Stolfi on April 5, 1984 11:15:18 pm PST