Test.mesa
Scaffolding for testing the Knob stuff
Copyright © 1984 by Xerox Corporation. All rights reserved.
Created Tuesday, August 7, 1984 9:40 pm PDT
Last edited by Eric Nickell, August 7, 1984 10:09:44 pm PDT
DIRECTORY
ViewerOps,
Sliders,
KnobAttach,
ViewerClasses
;
Test: CEDAR PROGRAM
IMPORTS ViewerOps, Sliders, KnobAttach
= BEGIN
OPEN VO: ViewerOps, S: Sliders, K: KnobAttach, V: ViewerClasses;
c: V.Viewer ← ViewerOps.CreateViewer[$Container, [name: "Try Me!", openHeight: 200]];
slider: S.Slider ← S.Create[info: [parent: c, wx: 10, wy: 10, wh: 20, ww: 400], orientation: horizontal];
ka: K.KnobAttachViewer ← K.Create[[parent: c, wx: 10, wy: 80, wh: 40, ww: 40], slider];
END.