File: TestViewers.mesa
Last Edited by: Stolfi, May 22, 1984 5:20:45 pm PDT
Deonstrates a bug in Viewer creation with unregistered flavor.
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