/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/API/evaluated_type/like_type_a.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/API/evaluated_type/like_type_a.e

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

revision 41738 by manus, Fri Mar 5 18:59:26 2004 UTC revision 42626 by manus, Fri Apr 9 02:52:52 2004 UTC
# Line 13  inherit Line 13  inherit
13                  redefine                  redefine
14                          actual_type, has_like, is_like, is_external,                          actual_type, has_like, is_like, is_external,
15                          is_basic, instantiated_in, meta_type,                          is_basic, instantiated_in, meta_type,
16                          has_associated_class, reference_actual_type                          has_associated_class, reference_actual_type,
17                            is_reference, is_expanded
18                  end                  end
19    
20          SHARED_LIKE_CONTROLER          SHARED_LIKE_CONTROLER
# Line 50  feature -- Properties Line 51  feature -- Properties
51                  do                  do
52                          Result := actual_type.is_external                          Result := actual_type.is_external
53                  end                  end
54                    
55            is_reference: BOOLEAN is
56                            -- Is current actual type a reference one?
57                    do
58                            Result := actual_type.is_reference
59                    end
60    
61            is_expanded: BOOLEAN is
62                            -- Is current actual type an expanded one?
63                    do
64                            Result := actual_type.is_expanded
65                    end
66    
67  feature -- Access  feature -- Access
68    

Legend:
Removed from v.41738  
changed lines
  Added in v.42626

  ViewVC Help
Powered by ViewVC 1.1.23