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 }; }. fFile: MonitorToolButtonsImpl.mesa Author: Pier on July 30, 1985 5:28:14 pm PDT ButtonProc: TYPE = PROC [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: MouseButton _ red, shift, control: BOOL _ FALSE] ; For menus, the parent field will contain the parent Viewer; for buttons, parent will be the button Viewer itself. Use NARROW to convert a REF ANY to a Viewer. mouseButton indicates how the user invoked the button or menu. shift and control indicate the state of the shift and control keys when the menu or button was invoked. force the selection into the user input field force the selection into the user input field force the selection into the user input field force the selection into the user input field force the selection into the user input field force the selection into the user input field force the selection into the user input field Κ ˜Icodešœ!™!Kšœ,™,K˜šΟk ˜ Kšœœ˜Kšœœ˜/Kšœ œ˜!—K˜šΟbœ ˜%Kšœ œ˜3K˜Kšœœ˜)Kšœ œ#˜4KšœD™DKšœ?™?KšœΘ™ΘK˜šž œœœ˜2Kšœ-™-KšœœΟc˜4Kšœ5Ÿ˜KK˜—K˜šž œœœ˜3Kšœ-™-KšœœŸ˜4Kšœ6Ÿ˜LK˜—K˜šžœœœ˜.Kšœ-™-KšœœŸ˜4Kšœ1Ÿ˜GK˜—K˜šžœœœ˜-Kšœ-™-KšœœŸ˜4Kšœ0Ÿ˜FK˜—šžœœœ˜-Kšœ-™-KšœœŸ˜4Kšœ0Ÿ˜FK˜—K˜šž œœœ˜3Kšœ-™-KšœœŸ˜4Kšœ-Ÿ˜CK˜—K˜šžœœœ˜/Kšœ-™-KšœœŸ˜4Kšœ2Ÿ˜HK˜—K˜K˜—K˜—…— ’