Login | Register
My pages Projects Community openCollabNet

Discussions > cvs > CVS update: /charles/src/ai302/examples/shapes/

charles
Discussion topic

Back to topic list

CVS update: /charles/src/ai302/examples/shapes/

Reply

Author matthewjheaney
Full name Matthew Heaney
Date 2004-05-06 21:10:41 PDT
Message User: matthewjheaney
Date: 04/05/06 21:10:41

Modified:
 /charles/src/ai302/e​xamples/shapes/
  test_shapes.adb

Log:
 sync'd with 04-04-29 AI95-00302-03/03

File Changes:

Directory: /charles/src/ai302/e​xamples/shapes/
====================​====================​======

File [changed]: test_shapes.adb
Url: http://charles.tigri​s.org/source/browse/​charles/src/ai302/ex​amples/shapes/test_s​hapes.adb?r1=1.1​&r2=1.2
Delta lines: +7 -10
--------------------
--- test_shapes.adb 15 Mar 2004 01:43:16 -0000 1.1
+++ test_shapes.adb 7 May 2004 04:10:38 -0000 1.2
@@ -11,10 +11,10 @@
 
 procedure Test_Shapes is
 
- procedure Output_West_X (V : in Vector_Type) is
+ procedure Output_West_X (V : in Vector) is
    begin
 
- for I in First (V) .. Last (V) loop
+ for I in First_Index (V) .. Last_Index (V) loop
 
          Put ("The x-coordinate of the west point of shape ");
          Put (I, Width => 0);
@@ -37,7 +37,7 @@
    Line : aliased Line_Type;
    Face : aliased Face_Type;
 
- V : Vector_Type;
+ V : Vector;
 
 begin
 
@@ -59,14 +59,13 @@
    Append (V, Face'Unchecked_Access);
 
    declare
- procedure Process
- (Shape : in Shape_Vectors.Element_Subtype) is
+ procedure Process (C : Shape_Vectors.Cursor) is
       begin
- Move (Shape.all, DX => 20, DY => 0);
+ Move (Element (C).all, DX => 20, DY => 0);
       end;
 
       procedure Iterate is
- new Shape_Vectors.Generi​c_Constant_Iteration​;
+ new Shape_Vectors.Generi​c_Iteration;
    begin
       Iterate (V);
    end;
@@ -81,9 +80,7 @@
              "x-coordinate of their west points.");
 
    declare
- function "<" (L, R : Shape_Vectors.Element_Subtype)
- return Boolean is
-
+ function "<" (L, R : Shape_Class_Access) return Boolean is
          LW : constant Point_Type := West (L.all);
          RW : constant Point_Type := West (R.all);
       begin




--------------------​--------------------​--------------------​---------
To unsubscribe, e-mail: cvs-unsubscribe@char​les.tigris.org
For additional commands, e-mail: cvs-help at charles dot tigris dot org

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

CVS update: /charles/src/ai302/examples/shapes/ matthewjheaney Matthew Heaney 2004-05-06 21:10:41 PDT
Messages per page: