/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e

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

revision 9655 by manus, Sun Mar 15 02:15:49 1998 UTC revision 9971 by manus, Wed Apr 22 17:38:29 1998 UTC
# Line 94  feature Line 94  feature
94                  local                  local
95                          exp: EXPANDED_DESC                          exp: EXPANDED_DESC
96                          types: TYPE_LIST                          types: TYPE_LIST
97                          pos: INTEGER                          old_cursor: CURSOR
98                          ref: REFERENCE_DESC                          ref: REFERENCE_DESC
99                  do                  do
100                          if is_expanded then                          if is_expanded then
# Line 102  feature Line 102  feature
102                                  is_expanded := False                                  is_expanded := False
103    
104                                  types := base_class.types                                  types := base_class.types
105                                  pos := types.index                                  old_cursor := types.cursor
106                                  types.compare_references                                  types.compare_references
107                                  types.search (Current)                                  types.search (Current)
108                                  exp.set_class_type (types.item)                                  exp.set_class_type (types.item)
109                                  types.go_i_th (pos)                                  types.go_to (old_cursor)
110    
111                                  is_expanded := True                                  is_expanded := True
112                                  Result := exp                                  Result := exp
# Line 179  feature Line 179  feature
179                          has: has_associated_class_type                          has: has_associated_class_type
180                  local                  local
181                          types: TYPE_LIST                          types: TYPE_LIST
182                          pos: INTEGER                          old_cursor: CURSOR
183                  do                  do
184                          if is_expanded then                          if is_expanded then
185                                  Result := associated_expanded_class_type                                  Result := associated_expanded_class_type
# Line 187  feature Line 187  feature
187                                  Result := associated_separate_class_type                                  Result := associated_separate_class_type
188                          else                          else
189                                  types := base_class.types                                  types := base_class.types
190                                  pos := types.index                                  old_cursor := types.cursor
191                                  types.compare_references                                  types.compare_references
192                                  types.search (Current)                                  types.search (Current)
193                                  Result := types.item                                  Result := types.item
194                                  types.go_i_th (pos)                                  types.go_to (old_cursor)
195                          end                          end
196                  end                  end
197    

Legend:
Removed from v.9655  
changed lines
  Added in v.9971

  ViewVC Help
Powered by ViewVC 1.1.23