/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/windows/eb_development_window.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/windows/eb_development_window.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 54402 by jfiat, Fri Aug 19 10:44:10 2005 UTC revision 54437 by jfiat, Wed Aug 24 11:56:34 2005 UTC
# Line 2711  feature {NONE} -- Implementation Line 2711  feature {NONE} -- Implementation
2711                  require                  require
2712                          a_cluster_not_void: a_cluster /= Void                          a_cluster_not_void: a_cluster /= Void
2713                  local                  local
2714                            l_assembly: ASSEMBLY_I
2715                          l_sorted_cluster: EB_SORTED_CLUSTER                          l_sorted_cluster: EB_SORTED_CLUSTER
2716                          l_format_context: FORMAT_CONTEXT                          l_format_context: FORMAT_CONTEXT
2717                          l_indexes: INDEXING_CLAUSE_AS                          l_indexes: INDEXING_CLAUSE_AS
# Line 2721  feature {NONE} -- Implementation Line 2722  feature {NONE} -- Implementation
2722                          l_cluster: CLUSTER_I                          l_cluster: CLUSTER_I
2723                          l_assert_level: ASSERTION_I                          l_assert_level: ASSERTION_I
2724                  do                  do
                           
2725                          create l_format_context.make_for_case                          create l_format_context.make_for_case
2726                                                    
2727                          l_format_context.put_text_item (ti_indexing_keyword)                          l_format_context.put_text_item (ti_indexing_keyword)
2728                          l_format_context.put_new_line                          l_format_context.put_new_line
2729                          l_format_context.indent                          l_format_context.indent
2730                            if a_cluster.is_assembly then
2731                                    l_assembly ?= a_cluster
2732                                    check l_assembly /= Void end
2733                                    l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("assembly_name"))
2734                                    l_format_context.put_text_item_without_tabs (ti_colon)
2735                                    l_format_context.put_space
2736                                    l_format_context.put_quoted_string_item (l_assembly.assembly_name)
2737                                    l_format_context.put_new_line
2738                                    l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("assembly_path"))
2739                                    l_format_context.put_text_item_without_tabs (ti_colon)
2740                                    l_format_context.put_space
2741                                    l_format_context.put_quoted_string_item (l_assembly.assembly_path)
2742                                    l_format_context.put_new_line
2743                                    
2744                            end
2745                          l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("cluster"))                          l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("cluster"))
2746                          l_format_context.put_text_item_without_tabs (ti_colon)                          l_format_context.put_text_item_without_tabs (ti_colon)
2747                          l_format_context.put_space                          l_format_context.put_space

Legend:
Removed from v.54402  
changed lines
  Added in v.54437

  ViewVC Help
Powered by ViewVC 1.1.23