note description: "Objects that manipulate objects of type EV_TEXT_ALIGNABLE" legal: "See notice at end of class." status: "See notice at end of class." author: "" date: "$Date$" revision: "$Revision$" class GB_EV_TEXT_ALIGNABLE -- The following properties from EV_TEXT_ALIGNABLE are manipulated by `Current'. -- Text_alignment - Performed on the real object and the display_object child inherit GB_EV_ANY undefine attribute_editor end GB_EV_TEXT_ALIGNABLE_EDITOR_CONSTRUCTOR EV_FRAME_CONSTANTS undefine default_create end DEFAULT_OBJECT_STATE_CHECKER undefine default_create end feature {GB_XML_STORE} -- Output generate_xml (element: XM_ELEMENT) -- Generate an XML representation of `Current' in `element'. local alignment: INTEGER alignment_text: STRING textable: EV_TEXT_ALIGNABLE default_alignment: INTEGER do textable ?= default_object_by_type (class_name (first)) default_alignment := textable.text_alignment alignment := first.text_alignment if not alignment.is_equal (default_alignment) then inspect alignment when {EV_TEXT_ALIGNMENT_CONSTANTS}.Ev_text_alignment_left then alignment_text := Ev_textable_left_string when {EV_TEXT_ALIGNMENT_CONSTANTS}.Ev_text_alignment_center then alignment_text := Ev_textable_center_string when {EV_TEXT_ALIGNMENT_CONSTANTS}.Ev_text_alignment_right then alignment_text := Ev_textable_right_string else check error: False end end add_element_containing_string (element, text_alignment_string, alignment_text) end end modify_from_xml (element: XM_ELEMENT) -- Update all items in `objects' based on information held in `element'. local element_info: ELEMENT_INFORMATION do full_information := get_unique_full_info (element) element_info := full_information @ (text_alignment_string) if element_info /= Void then if element_info.data.same_string (Ev_textable_left_string) then for_all_objects (agent {EV_TEXT_ALIGNABLE}.align_text_left) elseif element_info.data.same_string (Ev_textable_center_string) then for_all_objects (agent {EV_TEXT_ALIGNABLE}.align_text_center) elseif element_info.data.same_string (Ev_textable_right_string) then for_all_objects (agent {EV_TEXT_ALIGNABLE}.align_text_right) end end end feature {GB_CODE_GENERATOR} -- Output generate_code (element: XM_ELEMENT; info: GB_GENERATED_INFO): ARRAYED_LIST [STRING] -- `Result' is string representation of -- settings held in `Current' which is -- in a compilable format. local element_info: ELEMENT_INFORMATION do create Result.make (1) full_information := get_unique_full_info (element) element_info := full_information @ (text_alignment_string) if element_info /= Void then if element_info.data.same_string (Ev_textable_left_string) then Result.extend (info.actual_name_for_feature_call + "align_text_left") elseif element_info.data.same_string (Ev_textable_center_string) then Result.extend (info.actual_name_for_feature_call + "align_text_center") elseif element_info.data.same_string (Ev_textable_right_string) then Result.extend (info.actual_name_for_feature_call + "align_text_right") end end end note copyright: "Copyright (c) 1984-2006, Eiffel Software" license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)" licensing_options: "http://www.eiffel.com/licensing" copying: "[ This file is part of Eiffel Software's Eiffel Development Environment. Eiffel Software's Eiffel Development Environment is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2 of the License (available at the URL listed under "license" above). Eiffel Software's Eiffel Development Environment is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Eiffel Software's Eiffel Development Environment; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ]" 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 GB_EV_TEXT_ALIGNABLE