Re: Booch: missing r/w access through iterators

[porton@ex-code.com (Victor Porton)]

In article <x7v8z06tzt5.fsf@galadriel.frlngtn.gecm.com>,
	Simon Wright <simon.j.wright@amsjv.com> writes:
> porton@ex-code.com (Victor Porton) writes:
> 
>> In Booch generic package BC.Containers there are
>> function Current_Item which gives read-only access
>> to the current item. Why a function giving direct
>> read-write access to the current item (by returning
>> access to it) is missing?!
> 
> I think you are looking for
> 
>    generic
>       with procedure Apply (Elem : in out Item);
>    procedure Access_Current_Item (In_The_Iterator : Iterator'Class);
>    --  Call Apply for the Iterator's current Item.

I noticed Access_Current_Item, but with it to gain such access one
needs to create a new procedure! Too bad. I want direct access like:

function Current_Item_Access(It: Iterator'Class) return Item_Access;