/[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 508 by grator, Mon Mar 28 11:18:45 1994 UTC revision 541 by grator, Wed May 4 14:50:03 1994 UTC
# Line 93  feature Line 93  feature
93                                  is_expanded := False;                                  is_expanded := False;
94    
95                                  types := base_class.types;                                  types := base_class.types;
96                                  pos := types.position;                                  pos := types.index;
97                                  types.search (Current);                                  types.search (Current);
98                                  exp.set_class_type (types.item);                                  exp.set_class_type (types.item);
99                                  types.go (pos);                                  types.go_i_th (pos);
100    
101                                  is_expanded := True;                                  is_expanded := True;
102                                  Result := exp;                                  Result := exp;
# Line 129  feature Line 129  feature
129                                  Result := associated_expanded_class_type                                  Result := associated_expanded_class_type
130                          else                          else
131                                  types := base_class.types;                                  types := base_class.types;
132                                  pos := types.position;                                  pos := types.index;
133                                  types.search (Current);                                  types.search (Current);
134                                  Result := types.item;                                  Result := types.item;
135                                  types.go (pos);                                  types.go_i_th (pos);
136                          end;                          end;
137                  end;                  end;
138    

Legend:
Removed from v.508  
changed lines
  Added in v.541

  ViewVC Help
Powered by ViewVC 1.1.23