DIRECTORY Sliders USING [Slider, SliderProc], ViewerClasses USING [Viewer, ViewerRec], ViewerOps USING [DestroyViewer] ; KnobAttach: CEDAR DEFINITIONS IMPORTS ViewerOps = BEGIN KnobAttachViewer: TYPE ~ ViewerClasses.Viewer; Slider: TYPE ~ Sliders.Slider; Attachment: TYPE ~ {left, right, none}; NotASlider: ERROR; TurnProc: TYPE ~ Sliders.SliderProc; Create: PROC [info: ViewerClasses.ViewerRec, slider: Slider, turnProc: TurnProc _ NIL, clientData: REF _ NIL] RETURNS [KnobAttachViewer]; Destroy: PROC [viewer: KnobAttachViewer] ~ INLINE {ViewerOps.DestroyViewer[viewer]}; GetAttachment: PROC [viewer: KnobAttachViewer] RETURNS [Attachment]; Attach: PROC [viewer: KnobAttachViewer, whichKnob: Attachment, paint: BOOL _ TRUE]; Detach: PROC [viewer: KnobAttachViewer, paint: BOOL _ TRUE] ~ INLINE {Attach[viewer, none, paint]}; END. ΤKnobAttach.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Created Tuesday, August 7, 1984 2:44 pm PDT Last edited by Eric Nickell, May 25, 1985 11:58:47 am PDT The slider passed to it is the one which it will control (i.e., support attachment to the hardware knobs). See KnobDoc.tioga for information on how to use the hooks to UserProfile. Allows client to manually perform an attachment between a knob and a slider (for defaults, etc.) Κ`˜šœ™Jšœ Οmœ1™