/[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 58325 by manus, Thu Apr 20 16:05:16 2006 UTC revision 58520 by manus, Thu Apr 27 20:54:45 2006 UTC
# Line 3171  feature {NONE} -- Implementation Line 3171  feature {NONE} -- Implementation
3171                  local                  local
3172                          l_assembly: ASSEMBLY_I                          l_assembly: ASSEMBLY_I
3173                          l_sorted_cluster: EB_SORTED_CLUSTER                          l_sorted_cluster: EB_SORTED_CLUSTER
3174                          l_indexes: INDEXING_CLAUSE_AS                          l_classes: DS_ARRAYED_LIST [CLASS_I]
                         l_classes: DS_LIST [CLASS_I]  
3175                          l_subclu: DS_LIST [EB_SORTED_CLUSTER]                          l_subclu: DS_LIST [EB_SORTED_CLUSTER]
3176                          l_cl_i: CLASS_I                          l_cl_i, l_overridden_class: CLASS_I
                         l_list_cl_i: DS_LIST [CLASS_I]  
3177                          l_cluster: CLUSTER_I                          l_cluster: CLUSTER_I
3178                          l_assert_level: ASSERTION_I                          l_assert_level: ASSERTION_I
3179                          l_format_context: TEXT_FORMATTER_DECORATOR                          l_format_context: TEXT_FORMATTER_DECORATOR
3180                            l_description: STRING
3181                  do                  do
   
3182                          create l_format_context.make_for_case (editor_tool.text_area.text_displayed)                          create l_format_context.make_for_case (editor_tool.text_area.text_displayed)
3183                          editor_tool.text_area.handle_before_processing (false)                          editor_tool.text_area.handle_before_processing (false)
3184                          l_format_context.process_keyword_text (ti_indexing_keyword, Void)                          l_format_context.process_keyword_text (ti_indexing_keyword, Void)
# Line 3199  feature {NONE} -- Implementation Line 3197  feature {NONE} -- Implementation
3197                                  l_format_context.set_without_tabs                                  l_format_context.set_without_tabs
3198                                  l_format_context.process_symbol_text (ti_colon)                                  l_format_context.process_symbol_text (ti_colon)
3199                                  l_format_context.put_space                                  l_format_context.put_space
3200                                  conf_todo                                  l_format_context.put_quoted_string_item (l_assembly.location.evaluated_path)
 --                              l_format_context.put_quoted_string_item (l_assembly.assembly_path)  
3201                                  l_format_context.put_new_line                                  l_format_context.put_new_line
3202    
3203                          end                          end
# Line 3217  feature {NONE} -- Implementation Line 3214  feature {NONE} -- Implementation
3214                          l_format_context.put_space                          l_format_context.put_space
3215                          l_format_context.put_quoted_string_item (a_cluster.path)                          l_format_context.put_quoted_string_item (a_cluster.path)
3216                          l_format_context.put_new_line                          l_format_context.put_new_line
3217                          conf_todo  
3218  --                      l_indexes := a_cluster.indexes                                  -- Now try to get the description of the cluster, and if not
3219                          if l_indexes /= Void then                                  -- we take the one from its target.
3220                                  l_format_context.format_indexing_with_no_keyword (l_indexes)                          if a_cluster.description /= Void then
3221                                    l_description := a_cluster.description
3222                            elseif a_cluster.target.description /= Void then
3223                                    l_description := a_cluster.target.description
3224                            end
3225                            if l_description /= Void then
3226                                    l_format_context.process_indexing_tag_text ("description")
3227                                    l_format_context.set_without_tabs
3228                                    l_format_context.process_symbol_text (ti_colon)
3229                                    l_format_context.put_space
3230                                    l_format_context.set_in_indexing_clause (True)
3231                                    l_format_context.process_symbol_text (ti_double_quote)
3232                                    l_format_context.process_symbol_text (ti_l_bracket)
3233                                    l_format_context.put_new_line
3234                                    if l_description.has ('%N') then
3235                                                    -- Indenting looks strange below because
3236                                                    -- `add_multiline_string' does not take into accounts
3237                                                    -- how many indents already exists.
3238                                            l_format_context.exdent
3239                                            l_format_context.add_multiline_string (l_description, 3)
3240                                            l_format_context.indent
3241                                    else
3242                                            l_format_context.indent
3243                                            l_format_context.indent
3244                                            l_format_context.add_string (l_description)
3245                                            l_format_context.exdent
3246                                            l_format_context.exdent
3247                                    end
3248                                    l_format_context.put_new_line
3249                                    l_format_context.indent
3250                                    l_format_context.process_symbol_text (ti_r_bracket)
3251                                    l_format_context.process_symbol_text (ti_double_quote)
3252                                    l_format_context.exdent
3253                                  l_format_context.put_new_line                                  l_format_context.put_new_line
3254                          end                          end
3255    
# Line 3232  feature {NONE} -- Implementation Line 3261  feature {NONE} -- Implementation
3261                                  l_format_context.indent                                  l_format_context.indent
3262                                  l_format_context.put_manifest_string (" - ")                                  l_format_context.put_manifest_string (" - ")
3263    
3264                                  conf_todo                                  l_format_context.add_group (a_cluster.parent_cluster, a_cluster.parent_cluster.cluster_name)
 --                              l_format_context.add_cluster (a_cluster.parent_cluster, a_cluster.parent_cluster.cluster_name)  
3265                                  l_format_context.put_new_line                                  l_format_context.put_new_line
3266                                  l_format_context.exdent                                  l_format_context.exdent
3267                          end                          end
# Line 3253  feature {NONE} -- Implementation Line 3281  feature {NONE} -- Implementation
3281                                  until                                  until
3282                                          l_subclu.after                                          l_subclu.after
3283                                  loop                                  loop
3284                                          conf_todo                                          l_cluster := l_subclu.item_for_iteration.actual_cluster
3285  --                                      l_cluster := l_subclu.item.actual_cluster                                          l_format_context.put_manifest_string (" - ")
3286  --                                      l_format_context.put_manifest_string (" - ")                                          l_format_context.add_group (l_cluster, l_cluster.cluster_name)
3287  --                                      l_format_context.add_cluster (l_cluster, l_cluster.cluster_name)                                          l_format_context.put_space
3288  --                                      l_format_context.put_space                                          l_format_context.set_without_tabs
3289  --                                      l_format_context.set_without_tabs                                          l_format_context.process_symbol_text (ti_L_parenthesis)
3290  --                                      l_format_context.process_symbol_text (ti_L_parenthesis)                                          l_format_context.process_comment_text (l_cluster.classes.count.out, Void)
3291  --                                      l_format_context.process_comment_text (l_cluster.classes.count.out, Void)                                          l_format_context.set_without_tabs
3292  --                                      l_format_context.set_without_tabs                                          l_format_context.process_symbol_text (ti_R_parenthesis)
3293  --                                      l_format_context.process_symbol_text (ti_R_parenthesis)                                          l_format_context.put_new_line
 --                                      l_format_context.put_new_line  
3294                                          l_subclu.forth                                          l_subclu.forth
3295                                  end                                  end
3296                                  l_format_context.exdent                                  l_format_context.exdent
# Line 3331  feature {NONE} -- Implementation Line 3358  feature {NONE} -- Implementation
3358                                  l_format_context.exdent                                  l_format_context.exdent
3359                          end                          end
3360    
3361                          conf_todo                          if
3362  --                      if not a_cluster.overriden_classes.is_empty then                                  not l_sorted_cluster.classes.is_empty and then
3363  --                              l_format_context.process_indexing_tag_text ("overriden class(es)")                                  a_cluster.overriders /= Void and not a_cluster.overriders.is_empty
3364  --                              l_format_context.set_without_tabs                          then
3365  --                              l_format_context.process_symbol_text (ti_colon)                                  l_format_context.process_indexing_tag_text ("overriden class(es)")
3366  --                              l_format_context.put_new_line                                  l_format_context.set_without_tabs
3367  --                              l_format_context.indent                                  l_format_context.process_symbol_text (ti_colon)
3368  --                              from                                  l_format_context.put_new_line
3369  --                                      l_classes := a_cluster.overriden_classes.linear_representation                                  l_format_context.indent
3370  --                                      l_classes.start                                  from
3371  --                              until                                          l_classes := l_sorted_cluster.classes
3372  --                                      l_classes.after                                          l_classes.start
3373  --                              loop                                  until
3374  --                                      l_cl_i := l_classes.item                                          l_classes.after
3375  --                                      l_format_context.put_manifest_string (" - ")                                  loop
3376  --                                      l_format_context.put_classi (l_cl_i)                                          l_cl_i := l_classes.item_for_iteration
3377  --                                      l_list_cl_i := eiffel_universe.classes_with_name (l_cl_i.name)                                          if l_cl_i.config_class.is_overriden then
3378  --                                      if l_list_cl_i /= Void and then not l_list_cl_i.is_empty then                                                  l_overridden_class ?= l_cl_i.config_class.overriden_by
3379  --                                              l_format_context.set_without_tabs                                                  if l_overridden_class /= Void then
3380  --                                              l_format_context.process_symbol_text (ti_colon)                                                          l_format_context.put_manifest_string (" - ")
3381  --                                              l_format_context.process_comment_text (" overriden by", Void)                                                          l_format_context.put_classi (l_cl_i)
3382  --                                              from                                                          l_format_context.process_comment_text (" overriden by", Void)
3383  --                                                      l_list_cl_i.start                                                          l_format_context.process_symbol_text (ti_colon)
3384  --                                              until                                                          l_format_context.put_space
3385  --                                                      l_list_cl_i.after                                                          l_format_context.put_classi (l_overridden_class)
3386  --                                              loop                                                          l_format_context.put_manifest_string (" in ")
3387  --                                                      l_cluster := l_list_cl_i.item.cluster                                                          l_format_context.add_group (l_cl_i.config_class.overriden_by.group, l_cl_i.config_class.overriden_by.group.name)
3388  --                                                      if l_cluster /= a_cluster then                                                          l_format_context.put_new_line
3389  --                                                              l_format_context.put_space                                                  end
3390  --                                                              l_format_context.set_without_tabs                                          end
3391  --                                                              l_format_context.process_symbol_text (ti_double_quote)                                          l_classes.forth
3392  --                                                              l_format_context.add_cluster (l_list_cl_i.item.cluster, l_list_cl_i.item.cluster.cluster_name)                                  end
3393  --                                                              l_format_context.set_without_tabs                                  l_format_context.exdent
3394  --                                                              l_format_context.process_symbol_text (ti_double_quote)                                  l_format_context.put_new_line
3395  --                                                      end                          end
 --                                                      l_list_cl_i.forth  
 --                                              end  
 --                                      end  
 --                                      l_format_context.put_new_line  
 --                                      l_classes.forth  
 --                              end  
 --                              l_format_context.exdent  
 --                              l_format_context.put_new_line  
 --                      end  
3396    
3397                          l_format_context.exdent                          l_format_context.exdent
3398                          l_format_context.put_new_line                          l_format_context.put_new_line

Legend:
Removed from v.58325  
changed lines
  Added in v.58520

  ViewVC Help
Powered by ViewVC 1.1.23