Automatic generation produced by ISE Eiffel

Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:
note description: "Eiffel Vision color. Mswindows implementation" legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2017-03-27 09:23:22 -0800 (Mon, 27 Mar 2017) $" revision: "$Revision: 100056 $" class interface EV_COLOR_IMP create make -- Initialize Current. ensure -- from EV_ANY_I is_initialized: get_state_flag (Is_initialized_flag) feature -- Initialization make -- Initialize Current. ensure -- from EV_ANY_I is_initialized: get_state_flag (Is_initialized_flag) old_make (an_interface: attached like interface) -- Create Current with interface an_interface. require -- from EV_ANY_I an_interface_not_void: an_interface /= Void ensure -- from EV_ANY_I interface_assigned: interface = an_interface base_make_called: base_make_called ensure then -- from EV_COLOR_I default_name_assigned: name.is_equal (Default_name) red_zero: red = 0.to_real green_zero: green = 0.to_real blue_zero: blue = 0.to_real feature -- Access blue_8_bit: INTEGER_32 -- Intensity value for the blue component -- (from WEL_COLOR_REF) require -- from EV_COLOR_I True ensure -- from EV_COLOR_I within_range: Result >= 0 and Result <= {EV_COLOR}.max_8_bit Color_3ddkshadow: INTEGER_32 = 21 -- Dark shadow for three-dimensional display elements. -- -- Declared in Windows as COLOR_3DDKSHADOW -- (from WEL_COLOR_CONSTANTS) Color_3dface: INTEGER_32 = 15 -- Face color for three-dimensional display elements and -- for dialog box backgrounds. -- -- Declared in Windows as COLOR_3DFACE -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_btnface. -- (from WEL_COLOR_CONSTANTS) Color_3dhighlight: INTEGER_32 = 20 -- Highlight color for three-dimensional display elements -- (for edges facing the light source.) -- -- Declared in Windows as COLOR_3DHILIGHT -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dhilight, Color_btnhilight and Color_btnhighlight. -- (from WEL_COLOR_CONSTANTS) Color_3dhilight: INTEGER_32 = 20 -- Highlight color for three-dimensional display elements -- (for edges facing the light source.) -- -- Declared in Windows as COLOR_3DHILIGHT -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dhighlight, Color_btnhilight and Color_btnhighlight. -- (from WEL_COLOR_CONSTANTS) Color_3dlight: INTEGER_32 = 22 -- Light color for three-dimensional display elements -- (for edges facing the light source.) -- -- Declared in Windows as COLOR_3DLIGHT -- (from WEL_COLOR_CONSTANTS) Color_3dshadow: INTEGER_32 = 16 -- Shadow color for three-dimensional display elements -- (for edges facing away from the light source). -- -- Declared in Windows as COLOR_3DSHADOW -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_btnshadow. -- (from WEL_COLOR_CONSTANTS) Color_activeborder: INTEGER_32 = 10 -- Active window border. -- -- Declared in Windows as COLOR_ACTIVEBORDER -- (from WEL_COLOR_CONSTANTS) Color_activecaption: INTEGER_32 = 2 -- Active window title bar. -- -- Windows 98/Me, Windows 2000 or later: --   Specifies the left side color in the color gradient of an active --   window's title bar if the gradient effect is enabled. -- -- Declared in Windows as COLOR_ACTIVECAPTION -- (from WEL_COLOR_CONSTANTS) Color_appworkspace: INTEGER_32 = 12 -- Background color of multiple document interface (MDI) applications. -- -- Declared in Windows as COLOR_APPWORKSPACE -- (from WEL_COLOR_CONSTANTS) Color_background: INTEGER_32 = 1 -- Desktop. -- -- Declared in Windows as COLOR_BACKGROUND -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_desktop. -- (from WEL_COLOR_CONSTANTS) Color_btnface: INTEGER_32 = 15 -- Face color for three-dimensional display elements and -- for dialog box backgrounds. -- -- Declared in Windows as COLOR_3DFACE -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dface. -- (from WEL_COLOR_CONSTANTS) Color_btnhighlight: INTEGER_32 = 20 -- Highlight color for three-dimensional display elements -- (for edges facing the light source.) -- -- Declared in Windows as COLOR_3DHILIGHT -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dhilight, Color_3dhighlight and Color_btnhilight. -- (from WEL_COLOR_CONSTANTS) Color_btnhilight: INTEGER_32 = 20 -- Highlight color for three-dimensional display elements -- (for edges facing the light source.) -- -- Declared in Windows as COLOR_3DHILIGHT -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dhilight, Color_3dhighlight and Color_btnhighlight. -- (from WEL_COLOR_CONSTANTS) Color_btnshadow: INTEGER_32 = 16 -- Shadow color for three-dimensional display elements -- (for edges facing away from the light source). -- -- Declared in Windows as COLOR_3DSHADOW -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_3dshadow. -- (from WEL_COLOR_CONSTANTS) Color_btntext: INTEGER_32 = 18 -- Text on push buttons. -- -- Declared in Windows as COLOR_BTNTEXT -- (from WEL_COLOR_CONSTANTS) Color_captiontext: INTEGER_32 = 9 -- Text in caption, size box, and scroll bar arrow box. -- -- Declared in Windows as COLOR_CAPTIONTEXT -- (from WEL_COLOR_CONSTANTS) Color_desktop: INTEGER_32 = 1 -- Desktop. -- -- Declared in Windows as COLOR_BACKGROUND -- Was declared in WEL_COLOR_CONSTANTS as synonym of Color_background. -- (from WEL_COLOR_CONSTANTS) Color_gradientactivecaption: INTEGER_32 = 27 -- Windows 98/Me, Windows 2000 or later: --   Right side color in the color gradient of an active window's --   title bar. COLOR_ACTIVECAPTION specifies the left side color. --   Use SPI_GETGRADIENTCAPTIONS with the SystemParametersInfo --   function to determine whether the gradient effect is enabled. -- -- Declared in Windows as COLOR_GRADIENTACTIVECAPTION -- (from WEL_COLOR_CONSTANTS) Color_gradientinactivecaption: INTEGER_32 = 28 -- Windows 98/Me, Windows 2000 or later: --   Right side color in the color gradient of an inactive window's --   title bar. COLOR_INACTIVECAPTION specifies the left side color. -- -- Declared in Windows as COLOR_GRADIENTINACTIVECAPTION -- (from WEL_COLOR_CONSTANTS) Color_graytext: INTEGER_32 = 17 -- Grayed (disabled) text. This color is set to 0 if the current -- display driver does not support a solid gray color. -- -- Declared in Windows as COLOR_GRAYTEXT -- (from WEL_COLOR_CONSTANTS) Color_highlight: INTEGER_32 = 13 -- Item(s) selected in a control. -- -- Declared in Windows as COLOR_HIGHLIGHT -- (from WEL_COLOR_CONSTANTS) Color_highlighttext: INTEGER_32 = 14 -- Text of item(s) selected in a control. -- -- Declared in Windows as COLOR_HIGHLIGHTTEXT -- (from WEL_COLOR_CONSTANTS) Color_hotlight: INTEGER_32 = 26 -- Windows 98/Me, Windows 2000 or later: --   Color for a hot-tracked item. Single clicking a hot-tracked --   item executes the item. -- -- Declared in Windows as COLOR_HOTLIGHT -- (from WEL_COLOR_CONSTANTS) Color_inactiveborder: INTEGER_32 = 11 -- Inactive window border. -- -- Declared in Windows as COLOR_INACTIVEBORDER -- (from WEL_COLOR_CONSTANTS) Color_inactivecaption: INTEGER_32 = 3 -- Inactive window caption. -- -- Windows 98/Me, Windows 2000 or later: --   Specifies the left side color in the color gradient of an inactive --   window's title bar if the gradient effect is enabled. -- -- Declared in Windows as COLOR_INACTIVECAPTION -- (from WEL_COLOR_CONSTANTS) Color_inactivecaptiontext: INTEGER_32 = 19 -- Color of text in an inactive caption. -- -- Declared in Windows as COLOR_INACTIVECAPTIONTEXT -- (from WEL_COLOR_CONSTANTS) Color_infobk: INTEGER_32 = 24 -- Background color for tooltip controls. -- -- Declared in Windows as COLOR_INFOBK -- (from WEL_COLOR_CONSTANTS) Color_infotext: INTEGER_32 = 23 -- Text color for tooltip controls. -- -- Declared in Windows as COLOR_INFOTEXT -- (from WEL_COLOR_CONSTANTS) Color_menu: INTEGER_32 = 4 -- Menu background. -- -- Declared in Windows as COLOR_MENU -- (from WEL_COLOR_CONSTANTS) Color_menubar: INTEGER_32 = 30 -- Windows XP: --   The background color for the menu bar when menus appear as --   flat menus (see SystemParametersInfo). However, Color_menu --   continues to specify the background color of the menu popup. -- -- Declared in Windows as COLOR_MENUBAR -- (from WEL_COLOR_CONSTANTS) Color_menuhilight: INTEGER_32 = 29 -- Windows XP: --   The color used to highlight menu items when the menu appears --   as a flat menu (see SystemParametersInfo). The highlighted --   menu item is outlined with COLOR_HIGHLIGHT. -- -- Declared in Windows as COLOR_MENUHILIGHT -- (from WEL_COLOR_CONSTANTS) Color_menutext: INTEGER_32 = 7 -- Text in menus. -- -- Declared in Windows as COLOR_MENUTEXT -- (from WEL_COLOR_CONSTANTS) Color_scrollbar: INTEGER_32 = 0 -- Scroll bar gray area. -- -- Declared in Windows as COLOR_SCROLLBAR -- (from WEL_COLOR_CONSTANTS) Color_window: INTEGER_32 = 5 -- Window background. -- -- Declared in Windows as COLOR_WINDOW -- (from WEL_COLOR_CONSTANTS) Color_windowframe: INTEGER_32 = 6 -- Window frame. -- -- Declared in Windows as COLOR_WINDOWFRAME -- (from WEL_COLOR_CONSTANTS) Color_windowtext: INTEGER_32 = 8 -- Text in windows. -- -- Declared in Windows as COLOR_WINDOWTEXT -- (from WEL_COLOR_CONSTANTS) generating_type: TYPE [detachable EV_COLOR_IMP] -- Type of current object -- (type of which it is a direct instance) -- (from ANY) ensure -- from ANY generating_type_not_void: Result /= Void generator: STRING_8 -- Name of current object's generating class -- (base class of the type of which it is a direct instance) -- (from ANY) ensure -- from ANY generator_not_void: Result /= Void generator_not_empty: not Result.is_empty green_8_bit: INTEGER_32 -- Intensity value for the green component -- (from WEL_COLOR_REF) require -- from EV_COLOR_I True ensure -- from EV_COLOR_I within_range: Result >= 0 and Result <= {EV_COLOR}.max_8_bit item: INTEGER_32 -- The Current color. -- (from WEL_COLOR_REF) red_8_bit: INTEGER_32 -- Intensity value for the red component -- (from WEL_COLOR_REF) require -- from EV_COLOR_I True ensure -- from EV_COLOR_I within_range: Result >= 0 and Result <= {EV_COLOR}.max_8_bit feature -- Comparison frozen deep_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void -- or attached to isomorphic object structures? -- (from ANY) ensure -- from ANY instance_free: class shallow_implies_deep: standard_equal (a, b) implies Result both_or_none_void: (a = Void) implies (Result = (b = Void)) same_type: (Result and (a /= Void)) implies (b /= Void and then a.same_type (b)) symmetric: Result implies deep_equal (b, a) frozen equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached -- to objects considered equal? -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.is_equal (b)) frozen is_deep_equal (other: EV_COLOR_IMP): BOOLEAN -- Are Current and other attached to isomorphic object structures? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY shallow_implies_deep: standard_is_equal (other) implies Result same_type: Result implies same_type (other) symmetric: Result implies other.is_deep_equal (Current) is_equal (other: EV_COLOR_IMP): BOOLEAN -- Is other attached to an object considered -- equal to current object? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY symmetric: Result implies other ~ Current consistent: standard_is_equal (other) implies Result same_color (other: WEL_COLOR_REF): BOOLEAN -- Is other the same color as Current? -- (from WEL_COLOR_REF) frozen standard_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached to -- field-by-field identical objects of the same type? -- Always uses default object comparison criterion. -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.standard_is_equal (b)) frozen standard_is_equal (other: EV_COLOR_IMP): BOOLEAN -- Is other attached to an object of the same type -- as current object, and field-by-field identical to it? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY same_type: Result implies same_type (other) symmetric: Result implies other.standard_is_equal (Current) feature -- Status report conforms_to (other: ANY): BOOLEAN -- Does type of current object conform to type -- of other (as per Eiffel: The Language, chapter 13)? -- (from ANY) require -- from ANY other_not_void: other /= Void is_destroyed: BOOLEAN -- Is Current no longer usable? -- (from EV_ANY_I) same_type (other: ANY): BOOLEAN -- Is type of current object identical to type of other? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY definition: Result = (conforms_to (other) and other.conforms_to (Current)) valid_color_constant (c: INTEGER_32): BOOLEAN -- Is c a valid color constant? -- (from WEL_COLOR_CONSTANTS) feature -- Status setting destroy -- Render Current unusable. -- No externals to deallocate, just set the flags. ensure -- from EV_ANY_I is_in_destroy_set: is_in_destroy is_destroyed_set: is_destroyed feature -- Element change wel_set_blue (a_blue: INTEGER_32) -- Set blue with a_blue -- (from WEL_COLOR_REF) require -- from WEL_COLOR_REF valid_blue_inf: a_blue >= 0 valid_blue_sup: a_blue <= 255 ensure -- from WEL_COLOR_REF blue_set: blue_8_bit = a_blue set_color (color: INTEGER_32) -- Set item with color. -- (from WEL_COLOR_REF) ensure -- from WEL_COLOR_REF color_set: item = color wel_set_green (a_green: INTEGER_32) -- Set green with a_green -- (from WEL_COLOR_REF) require -- from WEL_COLOR_REF valid_green_inf: a_green >= 0 valid_green_sup: a_green <= 255 ensure -- from WEL_COLOR_REF green_set: green_8_bit = a_green wel_set_red (a_red: INTEGER_32) -- Set red with a_red -- (from WEL_COLOR_REF) require -- from WEL_COLOR_REF valid_red_inf: a_red >= 0 valid_red_sup: a_red <= 255 ensure -- from WEL_COLOR_REF red_set: red_8_bit = a_red set_rgb (a_red, a_green, a_blue: INTEGER_32) -- Set red, green, blue with -- a_red, a_green, a_blue -- (from WEL_COLOR_REF) require -- from WEL_COLOR_REF valid_red_inf: a_red >= 0 valid_red_sup: a_red <= 255 valid_green_inf: a_green >= 0 valid_green_sup: a_green <= 255 valid_blue_inf: a_blue >= 0 valid_blue_sup: a_blue <= 255 ensure -- from WEL_COLOR_REF red_set: red_8_bit = a_red green_set: green_8_bit = a_green blue_set: blue_8_bit = a_blue feature -- Duplication copy (other: EV_COLOR_IMP) -- Update current object using fields of object attached -- to other, so as to yield equal objects. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_equal: Current ~ other frozen deep_copy (other: EV_COLOR_IMP) -- Effect equivalent to that of: -- copy (other . deep_twin) -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY deep_equal: deep_equal (Current, other) frozen deep_twin: EV_COLOR_IMP -- New object structure recursively duplicated from Current. -- (from ANY) ensure -- from ANY deep_twin_not_void: Result /= Void deep_equal: deep_equal (Current, Result) frozen standard_copy (other: EV_COLOR_IMP) -- Copy every field of other onto corresponding field -- of current object. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_standard_equal: standard_is_equal (other) frozen standard_twin: EV_COLOR_IMP -- New object field-by-field identical to other. -- Always uses default copying semantics. -- (from ANY) ensure -- from ANY standard_twin_not_void: Result /= Void equal: standard_equal (Result, Current) frozen twin: EV_COLOR_IMP -- New object equal to Current -- twin calls copy; to change copying/twinning semantics, redefine copy. -- (from ANY) ensure -- from ANY twin_not_void: Result /= Void is_equal: Result ~ Current feature -- Basic operations frozen default: detachable EV_COLOR_IMP -- Default value of object's type -- (from ANY) frozen default_pointer: POINTER -- Default value of type POINTER -- (Avoid the need to write p.default for -- some p of type POINTER.) -- (from ANY) ensure -- from ANY instance_free: class default_rescue -- Process exception for routines with no Rescue clause. -- (Default: do nothing.) -- (from ANY) frozen do_nothing -- Execute a null action. -- (from ANY) ensure -- from ANY instance_free: class feature -- Implementation attached_interface: attached like interface -- Attached version of interface. -- (from EV_ANY_I) require -- from EV_ANY_I interface_attached: interface /= Void Default_name: STRING_32 = "noname" -- To be used as name when none is supplied. -- (from EV_COLOR_I) delta: REAL_32 -- Amount by which two intensities can differ but still be -- considered equal by is_equal. interface: detachable EV_COLOR -- (from EV_COLOR_I) note option: stable feature -- Output Io: STD_FILES -- Handle to standard file setup -- (from ANY) ensure -- from ANY instance_free: class io_not_void: Result /= Void out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY out_not_void: Result /= Void print (o: detachable ANY) -- Write terse external representation of o -- on standard output. -- (from ANY) ensure -- from ANY instance_free: class frozen tagged_out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY tagged_out_not_void: Result /= Void feature -- Platform Operating_environment: OPERATING_ENVIRONMENT -- Objects available from the operating system -- (from ANY) ensure -- from ANY instance_free: class operating_environment_not_void: Result /= Void invariant -- from EV_ANY_I interface_coupled: is_usable implies interface /= Void and then attached_interface.implementation = Current base_make_called: is_usable implies base_make_called -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) -- from WEL_COLOR_REF valid_red_inf: red_8_bit >= 0 valid_red_sup: red_8_bit <= 255 valid_green_inf: green_8_bit >= 0 valid_green_sup: green_8_bit <= 255 valid_blue_inf: blue_8_bit >= 0 valid_blue_sup: blue_8_bit <= 255 note copyright: "Copyright (c) 1984-2017, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., 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_COLOR_IMP
Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:

-- Generated by Eiffel Studio --
For more details: eiffel.org