<> <> DIRECTORY Buttons USING [ButtonProc], MonitorToolButtons USING [Handle, MTViewerRec], ViewerTools USING [SetSelection]; MonitorToolButtonsImpl: CEDAR PROGRAM IMPORTS ViewerTools EXPORTS MonitorToolButtons = { Handle: TYPE = MonitorToolButtons.Handle; MTViewerRec: TYPE = MonitorToolButtons.MTViewerRec; <> <> <> ScreenWidth: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.screenWidth.input]; -- force the selection }; ScreenHeight: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.screenHeight.input]; -- force the selection }; Refresh: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.refresh.input]; -- force the selection }; HBlank: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.hBlank.input]; -- force the selection }; VBlank: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.vBlank.input]; -- force the selection }; BitsPerPixel: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.bpp.input]; -- force the selection }; Position: PUBLIC Buttons.ButtonProc = CHECKED { <> handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.position.input]; -- force the selection }; }.