/[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 57858 by manus, Tue Mar 28 20:05:59 2006 UTC revision 57886 by manus, Thu Mar 30 00:13:44 2006 UTC
# Line 715  feature -- Access Line 715  feature -- Access
715    
716          cluster: CLUSTER_I is          cluster: CLUSTER_I is
717                          -- Cluster for current class. Void if none.                          -- Cluster for current class. Void if none.
718                    do
719                            conf_todo_msg ("Update callers to use `group' instead.")
720                            Result ?= group
721                    end
722    
723            group: CONF_GROUP is
724                            -- Group of current class. Void if none.
725                  local                  local
726                          classi_stone: CLASSI_STONE                          classi_stone: CLASSI_STONE
727                          cluster_stone: CLUSTER_STONE                          cluster_stone: CLUSTER_STONE
728                  do                  do
729                          conf_todo                          classi_stone ?= stone
730  --                      classi_stone ?= stone                          if classi_stone /= Void then
731  --                      if classi_stone /= Void then                                  Result := classi_stone.group
732  --                              Result := classi_stone.group                          end
733  --                      end                          cluster_stone ?= stone
734  --                      cluster_stone ?= stone                          if cluster_stone /= Void then
735  --                      if cluster_stone /= Void then                                  Result := cluster_stone.group
736  --                              Result := cluster_stone.cluster_i                          end
 --                      end  
737                  end                  end
738    
739          class_name: STRING is          class_name: STRING is
# Line 3808  feature {NONE} -- Implementation: Editor Line 3814  feature {NONE} -- Implementation: Editor
3814                  do                  do
3815                          if a_feature /= Void then                          if a_feature /= Void then
3816                                  address_manager.set_feature_text_simply (a_feature.feature_names.first.internal_name)                                  address_manager.set_feature_text_simply (a_feature.feature_names.first.internal_name)
3817                                  l_class_i := eiffel_universe.class_named (class_name, cluster)                                  l_class_i := eiffel_universe.class_named (class_name, group)
3818                                  if l_class_i /= Void and then l_class_i.is_compiled then                                  if l_class_i /= Void and then l_class_i.is_compiled then
3819                                          l_classc := l_class_i.compiled_class                                          l_classc := l_class_i.compiled_class
3820                                          if l_classc.has_feature_table then                                          if l_classc.has_feature_table then

Legend:
Removed from v.57858  
changed lines
  Added in v.57886

  ViewVC Help
Powered by ViewVC 1.1.23