<> <> <> <> <> <<>> 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.