/[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 31580 by manus, Wed Apr 17 02:42:15 2002 UTC revision 32282 by manus, Thu May 30 18:53:24 2002 UTC
# Line 120  feature -- Access Line 120  feature -- Access
120                          if is_true_expanded then                          if is_true_expanded then
121                                  !! exp                                  !! exp
122                                  is_true_expanded := False                                  is_true_expanded := False
123                                  exp.set_class_type (base_class.types.conservative_search_item (Current))                                  exp.set_class_type (base_class.types.search_item (Current))
124                                  is_true_expanded := True                                  is_true_expanded := True
125                                  exp.set_type_i (Current)                                  exp.set_type_i (Current)
126                                  Result := exp                                  Result := exp
# Line 156  feature -- Access Line 156  feature -- Access
156                  do                  do
157                          if is_true_expanded then                          if is_true_expanded then
158                                  is_true_expanded := False                                  is_true_expanded := False
159                                  Result := base_class.types.conservative_search_item (Current)                                  Result := base_class.types.search_item (Current)
160                                  is_true_expanded := True                                  is_true_expanded := True
161                          elseif is_separate then                          elseif is_separate then
162                                  is_separate := False                                  is_separate := False
163                                  Result := base_class.types.conservative_search_item (Current)                                  Result := base_class.types.search_item (Current)
164                                  is_separate := True                                  is_separate := True
165                          else                          else
166                                  Result := base_class.types.conservative_search_item (Current)                                  Result := base_class.types.search_item (Current)
167                          end                          end
168                  end                  end
169    
# Line 177  feature -- Access Line 177  feature -- Access
177                          -- Type id of the corresponding expanded class type                          -- Type id of the corresponding expanded class type
178                  do                  do
179                          is_true_expanded := False                          is_true_expanded := False
180                          Result := base_class.types.conservative_search_item (Current).type_id                          Result := base_class.types.search_item (Current).type_id
181                          is_true_expanded := True                          is_true_expanded := True
182                  end                  end
183    

Legend:
Removed from v.31580  
changed lines
  Added in v.32282

  ViewVC Help
Powered by ViewVC 1.1.23