/[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 46348 by king, Fri Nov 5 18:37:26 2004 UTC revision 47824 by manus, Tue Jan 25 01:24:48 2005 UTC
# Line 110  inherit Line 110  inherit
110                  export                  export
111                          {NONE} All                          {NONE} All
112                  end                  end
113                    
114            SHARED_TEXT_ITEMS
115                    export
116                            {NONE} All
117                    end
118    
119  create {EB_WINDOW_MANAGER}  create {EB_WINDOW_MANAGER}
120          make,          make,
# Line 2359  feature {NONE} -- Implementation Line 2364  feature {NONE} -- Implementation
2364                          cluster_st: CLUSTER_STONE                          cluster_st: CLUSTER_STONE
2365                          feature_stone: FEATURE_STONE                          feature_stone: FEATURE_STONE
2366                          conv_ferrst: FEATURE_ERROR_STONE                          conv_ferrst: FEATURE_ERROR_STONE
2367                          tmp_structured_text: STRUCTURED_TEXT                          l_format_context: FORMAT_CONTEXT
2368                            l_indexes: EIFFEL_LIST [INDEX_AS]
2369                          conv_errst: ERROR_STONE                          conv_errst: ERROR_STONE
2370                          class_file: RAW_FILE                          class_file: RAW_FILE
2371                          class_text_exists: BOOLEAN                          class_text_exists: BOOLEAN
# Line 2580  feature {NONE} -- Implementation Line 2586  feature {NONE} -- Implementation
2586                                          end                                          end
2587                                          if cluster_st /= Void then                                          if cluster_st /= Void then
2588  --| FIXME XR: Really manage cluster display in the main editor  --| FIXME XR: Really manage cluster display in the main editor
2589                                                  create tmp_structured_text.make                                                  create l_format_context.make_for_case
2590                                                  tmp_structured_text.add_string ("Cluster: " + cluster_st.cluster_i.cluster_name)                                                  l_format_context.put_text_item (ti_indexing_keyword)
2591                                                  tmp_structured_text.add_new_line                                                  l_format_context.put_new_line
2592                                                  tmp_structured_text.add_string ("Cluster path: " + cluster_st.cluster_i.path)                                                  l_format_context.indent
2593                                                  editor_tool.text_area.process_text (tmp_structured_text)                                                  l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("cluster"))
2594                                                    l_format_context.put_text_item_without_tabs (ti_colon)
2595                                                    l_format_context.put_space
2596                                                    l_format_context.put_string ("%"" + cluster_st.cluster_i.cluster_name + "%"")
2597                                                    l_format_context.put_new_line
2598                                                    l_format_context.put_text_item (create {INDEXING_TAG_TEXT}.make ("cluster_path"))
2599                                                    l_format_context.put_text_item_without_tabs (ti_colon)
2600                                                    l_format_context.put_space
2601                                                    l_format_context.put_string ("%"" + cluster_st.cluster_i.path + "%"")
2602                                                    l_format_context.put_new_line
2603                                                    l_indexes := cluster_st.cluster_i.indexes
2604                                                    if l_indexes /= Void then
2605                                                            l_format_context.set_new_line_between_tokens
2606                                                            l_format_context.format_ast (l_indexes)
2607                                                            l_format_context.exdent
2608                                                    end
2609                                                    l_format_context.put_new_line
2610                                                    editor_tool.text_area.process_text (l_format_context.text)
2611  --| END FIXME  --| END FIXME
2612                                          end                                          end
2613                                  end                                  end

Legend:
Removed from v.46348  
changed lines
  Added in v.47824

  ViewVC Help
Powered by ViewVC 1.1.23