indexing
	description	: "Constants for layout using Vision2"
	author		: "Arnaud PICHERY [ aranud@mail.dotcom.fr ]"
	date		: "$Date$"
	revision	: "$Revision$"

class
	EB_LAYOUT_CONSTANTS

feature -- Access (constants)

	Default_button_width: INTEGER is
			-- Default width for buttons
		once
			Result := dialog_unit_to_pixels (74)
		end

	Default_button_height: INTEGER is
			-- Default height for buttons
		once
			Result := dialog_unit_to_pixels (23)
		end

	Default_padding_size: INTEGER is
			-- Default size for padding
		once
			Result := dialog_unit_to_pixels (14)
		end

	Small_padding_size: INTEGER is
			-- Default size for padding
		once
			Result := dialog_unit_to_pixels (10)
		end

	Default_border_size: INTEGER is
			-- Default size for borders
		once
			Result := dialog_unit_to_pixels (7)
		end

	Small_border_size: INTEGER is
			-- Default size for borders
		once
			Result := dialog_unit_to_pixels (5)
		end

	resolution: INTEGER is
		once
			Result := (create {EV_FONT}).horizontal_resolution
		end

feature -- Conversion

	dialog_unit_to_pixels (a_size: INTEGER): INTEGER is
			-- Convert a dialog unit into pixel.
		do
			if resolution = 96 then
				Result := a_size
			else
				Result := (a_size * resolution) // 96
			end
		end

end -- class EB_LAYOUT_CONSTANTS