note description: "Implementation toolkit" legal: "See notice at end of class."; status: "See notice at end of class."; date: "$Date$"; revision: "$Revision$" class WIDGET_RESOURCE_IMP inherit WIDGET_RESOURCE_I create make feature -- Initalization make -- Create object do end; feature -- Status report resource_name: STRING -- name of resource for widget 'widget_name' do end; resource_value: STRING -- Value of the resource 'resource_name' for widget 'widget_name' do end; widget_name: STRING -- widget name to which 'resource_name' refers to do end; resource_string: STRING -- The joining of widget name, resource name and resource value -- to form the resource string; require else resource_name_valid: resource_name /= Void and then not resource_name.is_empty; do end; feature -- Status setting set_resource_name (a_name: STRING) -- Set the resource name require else valid_name: a_name /= Void and then not a_name.is_empty; do ensure then resource_name_set: resource_name.is_equal (a_name); end; set_resource_value (a_value: STRING) -- set the resource value require else valid_name: a_value /= Void and then not a_value.is_empty; do ensure then resource_name_set: resource_value.is_equal (a_value); end; set_widget_name (a_name: STRING) -- Set the widget name require else valid_name: a_name /= Void and then not a_name.is_empty; do ensure then resource_name_set: widget_name.is_equal (a_name); 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 WIDGET_RESOURCE_IMP