DIRECTORY MonitorToolButtons, Buttons, ViewerTools; MonitorToolButtonsImpl: PROGRAM IMPORTS ViewerTools EXPORTS MonitorToolButtons = BEGIN Handle: TYPE = MonitorToolButtons.Handle; MTViewerRec: TYPE = MonitorToolButtons.MTViewerRec; ScreenWidth: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.screenWidth.input]; -- force the selection }; ScreenHeight: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.screenHeight.input]; -- force the selection }; Refresh: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.refresh.input]; -- force the selection }; HBlank: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.hBlank.input]; -- force the selection }; VBlank: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.vBlank.input]; -- force the selection }; BitsPerPixel: PUBLIC Buttons.ButtonProc = CHECKED { -- force the selection into the user input field handle: Handle _ NARROW[clientData]; -- get our data ViewerTools.SetSelection[handle.bpp.input]; -- force the selection }; END. 8File: MonitorToolButtonsImpl.mesa Author: Pier on May 20, 1983 4:53 pm Contents: Viewer for the ... 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. Ê/˜J˜Jšœ!™!Jšœ$™$Jšœ™J˜šÏk ˜ Jšœ˜J˜Jšœ ˜ J˜—šœ˜Jšœ ˜Jšœ˜—Jš˜J˜Jšœœ˜)Jšœ œ#˜4J˜šœ œœ œœœœœ™DJšœ0œœ™?JšÏcÈ™ÈJ˜—J˜šÏn œœœ˜2šž0˜0Jšœœž˜4Jšœ5ž˜K—Jšœ˜—J˜šŸ œœœ˜3Jšž0˜0Jšœœž˜4Jšœ6ž˜LJ˜—J˜šŸœœœ˜.Jšž0˜0Jšœœž˜4Jšœ1ž˜GJšœ˜—J˜šŸœœœ˜-Jšž0˜0Jšœœž˜4Jšœ0ž˜FJ˜—J˜šŸœœœ˜-Jšž0˜0Jšœœž˜4Jšœ0ž˜FJšœ˜J˜—šŸ œœœ˜3Jšž0˜0Jšœœž˜4Jšœ-ž˜CJšœ˜J˜—Jšœ˜J˜—…—P ·