note description: "[ Constants used by scroll bar scroll action ]" date: "$Date$" revision: "$Revision$" class EV_SCROLL_CONSTANTS feature -- Enumeration bottom: INTEGER = 1 -- Scrolls to the lower right end_scroll: INTEGER = 2 -- Ends scroll line_down: INTEGER = 3 -- Scrolls one line down. line_up: INTEGER = 4 -- Scrolls one line up. page_down: INTEGER = 5 -- Scrolls one page down. page_up: INTEGER = 6 -- Scrolls one page up. thumb_position: INTEGER = 7 -- The user has dragged the scroll box (thumb) and released the mouse button. The HIWORD indicates the position of the scroll box at the end of the drag operation. thumb_track: INTEGER = 8 -- The user is dragging the scroll box. This message is sent repeatedly until the user releases the mouse button. The HIWORD indicates the position that the scroll box has been dragged to. top: INTEGER = 9 --Scrolls to the upper left. feature -- Query is_valid (a_action_type: INTEGER): BOOLEAN -- If `a_action_type' valid? do if a_action_type = bottom or else a_action_type = end_scroll or else a_action_type = line_down or else a_action_type = line_up or else a_action_type = page_down or else a_action_type = page_up or else a_action_type = thumb_position or else a_action_type = thumb_track or else a_action_type = top then Result := True end end note copyright: "Copyright (c) 1984-2011, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 356 Storke Road, Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end