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.1 required=5.0 tests=AXB_XMAILER_MIMEOLE_OL_024C2,
	BAYES_00,MAILING_LIST_MULTI,REPLYTO_WITHOUT_TO_CC autolearn=no
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5fd1cba526594f4
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-10-10 07:37:04 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!syros.belnet.be!news.belnet.be!fr.usenet-edu.net!usenet-edu.net!enst.fr!not-for-mail
From: "David C. Hoos" <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
Subject: Re: Some questions
Date: Thu, 10 Oct 2002 09:36:13 -0500
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.1034260622.2280.comp.lang.ada@ada.eu.org>
References: <6c4a2b60cbe5ecf058fadca48f6c6e80.110780@mygate.mailgate.org>
 <mailman.1034252882.23717.comp.lang.ada@ada.eu.org>
 <19f3ad7fb9ae3e7dd23e6ce7a7e8ee1a.110780@mygate.mailgate.org>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Trace: avanie.enst.fr 1034260622 91433 137.194.161.2 (10 Oct 2002 14:37:02
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Thu, 10 Oct 2002 14:37:02 +0000 (UTC)
Return-Path: <david.c.hoos.sr@ada95.com>
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0.13
Precedence: bulk
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=subscribe>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Original-Cc: sicon@hotmail.com
Xref: archiver1.google.com comp.lang.ada:29662
Date: 2002-10-10T09:36:13-05:00


----- Original Message ----- 
From: "Sim Con" <sicon@hotmail.com>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Thursday, October 10, 2002 8:34 AM
Subject: Re: Some questions


> Thanxs for the answer ^_^ but i have another question: 
> my print procedure needs a stack type for work and use some 
> private variable of the generic class so if i define a specific print 
> in other parts (main procedures or in other packages) i receive an
> error, any help? thanx again!! ^_^
Your _specific_ print procedure should only print an _item_ (e.g.,
a float).  Then inside your generic body you have the procedure
that uses the private variables of the generic class, calling your
specific via the formal generic parameter.

Alternatively, and probably better, instead of specifying a
specific _print_ procedure, you could specify an _image_ function
for each item.  That image function would return a string however
you want the item to appear when printed.  Then your generic
print procedure calls that _image_ function when it wants to show
an item.