From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,7ff1de84a8945e80
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!postnews.google.com!f18g2000prf.googlegroups.com!not-for-mail
From: rickduley <rickduley@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Access types as parameters
Date: Sun, 19 Jul 2009 15:57:12 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <e325296c-7114-4540-9406-b7426da408dd@f18g2000prf.googlegroups.com>
References: 
 <521c4843-d40f-4545-9e80-ca725e847090@h21g2000yqa.googlegroups.com>
	<a245c71e-8f1b-47be-a8f4-2ebb2170f9e5@c29g2000yqd.googlegroups.com>
	<f69aeaa5-5821-45ad-968b-489c7ccce67b@k19g2000yqn.googlegroups.com>
	<8410fc60-9b8a-4f82-92fc-622a6bbe5931@i18g2000pro.googlegroups.com>
	<h3r726$q9t$1@munin.nbi.dk>
NNTP-Posting-Host: 123.3.184.84
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1248044243 31576 127.0.0.1 (19 Jul 2009 22:57:23
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 19 Jul 2009 22:57:23 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: f18g2000prf.googlegroups.com; posting-host=123.3.184.84;
	posting-account=q18aiAoAAADbiIPIlD5R8oYVGhuoBvVA
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1;
	Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR
	3.5.30729),gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:7160
Date: 2009-07-19T15:57:12-07:00
List-Id: <comp.lang.ada>

Hi Randy

You wrote:
> So it is best to avoid the first form unless you have a particular need for
> dispatching on an access value (which won't happen here, because the
> designated type is class-wide).

Why then does GtkAda consistently use the first form, i.e.:
function My_Function (Thing : access My_Type'Class) return Positive;
for an 'Initialize' function?

It actually uses the form (this for Gtk.Button.Gtk_Button):
procedure Initialize
  (Button : access Gtk_Button_Record'Class;
   Label  : UTF8_String);