*"* use this source file for the definition and implementation of
*"* local helper classes, interface definitions and type
*"* declarations*"* use this source file for any type of declarations (class
*"* definitions, interfaces or type declarations) you need for
*"* components in the private section*"* use this source file for any macro definitions you need
*"* in the implementation part of the class*"* use this source file for your ABAP unit test classesmethod build_xml.
data: lo_theme_element type ref to if_ixml_element.
data: lo_theme type ref to if_ixml_element.
check io_document is bound.
lo_theme ?= io_document->get_root_element( )..
if lo_theme is bound.
lo_theme_element ?= io_document->create_simple_element_ns( prefix = zcl_excel_theme=>c_theme_prefix
name = c_theme_elements
parent = lo_theme ).
color_scheme->build_xml( io_document = io_document ).
font_scheme->build_xml( io_document = io_document ).
fmt_scheme->build_xml( io_document = io_document ).
endif.
endmethod.method constructor.
create object color_scheme.
create object font_scheme.
create object fmt_scheme.
endmethod. "constructormethod load.
data: lo_elements_children type ref to if_ixml_node_list.
data: lo_elements_iterator type ref to if_ixml_node_iterator.
data: lo_elements_element type ref to if_ixml_element.
check io_elements is not initial.
lo_elements_children = io_elements->get_children( ).
lo_elements_iterator = lo_elements_children->create_iterator( ).
lo_elements_element ?= lo_elements_iterator->get_next( ).
while lo_elements_element is bound.
case lo_elements_element->get_name( ).
when c_color_scheme.
color_scheme->load( io_color_scheme = lo_elements_element ).
when c_font_scheme.
font_scheme->load( io_font_scheme = lo_elements_element ).
when c_fmt_scheme.
fmt_scheme->load( io_fmt_scheme = lo_elements_element ).
endcase.
lo_elements_element ?= lo_elements_iterator->get_next( ).
endwhile.
endmethod. "load