/[eiffelstudio]/trunk/eweasel/tests/dotnet048/property.e
ViewVC logotype

Contents of /trunk/eweasel/tests/dotnet048/property.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 66018 - (show annotations)
Fri Jan 19 00:47:50 2007 UTC (13 years ago) by paulb
File size: 2123 byte(s)
Added test that crashes complier when renaming deferred .NET properties and not replicating a deferred function's assigner declaration.

1 indexing
2 description: "[
3 {I_PROPERTY} interface implementation
4 ]"
5 legal: "See notice at end of class."
6 status: "See notice at end of class.";
7 date: "$date$";
8 revision: "$revision$"
9
10 class
11 PROPERTY
12
13 inherit
14 SYSTEM_OBJECT
15
16 I_PROPERTY
17 rename
18 my_property as test_property,
19 set_my_property as set_test_property
20 end
21
22 feature -- Properties
23
24 frozen test_property: SYSTEM_STRING is
25 -- Property stirng
26 do
27 Result := internal_test_property
28 end
29
30 feature -- Properties setting
31
32 frozen set_test_property (a_value: SYSTEM_STRING) is
33 -- Set `my_property' with `a_value'
34 do
35 internal_test_property := a_value
36 end
37
38 feature {NONE} -- Implementation
39
40 internal_test_property: like test_property
41 -- Mutable version of `my_property'.
42 -- Note: do not use directly!
43
44 ;indexing
45 copyright: "Copyright (c) 1984-2007, Eiffel Software"
46 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
47 licensing_options: "http://www.eiffel.com/licensing"
48 copying: "[
49 This file is part of Eiffel Software's Eiffel Development Environment.
50
51 Eiffel Software's Eiffel Development Environment is free
52 software; you can redistribute it and/or modify it under
53 the terms of the GNU General Public License as published
54 by the Free Software Foundation, version 2 of the License
55 (available at the URL listed under "license" above).
56
57 Eiffel Software's Eiffel Development Environment is
58 distributed in the hope that it will be useful, but
59 WITHOUT ANY WARRANTY; without even the implied warranty
60 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
61 See the GNU General Public License for more details.
62
63 You should have received a copy of the GNU General Public
64 License along with Eiffel Software's Eiffel Development
65 Environment; if not, write to the Free Software Foundation,
66 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
67 ]"
68 source: "[
69 Eiffel Software
70 356 Storke Road, Goleta, CA 93117 USA
71 Telephone 805-685-1006, Fax 805-685-6869
72 Website http://www.eiffel.com
73 Customer support http://support.eiffel.com
74 ]"
75
76 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23