/[eiffelstudio]/trunk/eweasel/tests/anchor009/test_rev2.e
ViewVC logotype

Contents of /trunk/eweasel/tests/anchor009/test_rev2.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83206 - (show annotations)
Mon May 17 09:44:44 2010 UTC (9 years, 5 months ago) by alexk
File size: 362 byte(s)
Removed unused code and made sure local variables are used, so that there are no warnings.
1 class
2 TEST
3
4 inherit
5 COMPARABLE
6
7 create
8 make
9
10 feature
11
12 make
13 do
14 end
15
16 feature
17 domain: detachable TEST1 [CHARACTER]
18
19 feature -- Comparison
20
21 is_less alias "<" (other: like Current): BOOLEAN
22 -- Is current object less than `other'?
23 local
24 cursor: detachable like domain.new_cursor
25 do
26 if attached cursor as c then
27 cursor := c
28 end
29 end
30
31 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23