note description: "Eiffel Vision range. Mswindows implementation." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date$" revision: "$Revision$" deferred class EV_RANGE_IMP inherit EV_RANGE_I export {EV_ANY, EV_ANY_I, EV_INTERNAL_SILLY_WINDOW_IMP} attached_interface redefine interface end EV_GAUGE_IMP undefine valid_maximum redefine interface end WEL_TRACK_BAR rename parent as wel_parent, set_parent as wel_set_parent, destroy as wel_destroy, shown as is_displayed, position as value, set_position as wel_set_value, line as step, page as leap, set_line as wel_set_step, set_page as wel_set_leap, width as wel_width, height as wel_height, enabled as is_sensitive, item as wel_item, set_range as wel_set_range, move as wel_move, resize as wel_resize, move_and_resize as wel_move_and_resize, x as x_position, y as y_position, has_capture as wel_has_capture undefine set_width, set_height, on_left_button_down, on_middle_button_down, on_right_button_down, on_left_button_up, on_middle_button_up, on_right_button_up, on_left_button_double_click, on_middle_button_double_click, on_right_button_double_click, on_mouse_move, on_mouse_wheel, on_set_focus, on_desactivate, on_kill_focus, on_key_down, on_key_up, on_char, on_set_cursor, show, hide, on_size, x_position, y_position, on_sys_key_down, on_sys_key_up, default_process_message, on_getdlgcode, on_wm_dropfiles redefine default_style end feature {NONE} -- Implementation default_style: INTEGER -- Default style used to create the control. do Result := Ws_visible + Ws_child + Ws_group + Ws_tabstop + Tbs_tooltips + Ws_clipchildren + Ws_clipsiblings end feature {EV_ANY, EV_ANY_I, EV_INTERNAL_SILLY_WINDOW_IMP} -- Interface interface: detachable EV_RANGE note option: stable attribute end; note copyright: "Copyright (c) 1984-2006, 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 -- class EV_RANGE_IMP