From: Wilhelm Spickermann <wilhelm.spickermann@t-online.de>
To: comp.lang.ada@ada.eu.org
Subject: Re: Problem with Enumaration and visibility
Date: Wed, 14 Nov 2001 14:48:47 +0100
Date: 2001-11-14T14:48:47+01:00 [thread overview]
Message-ID: <mailman.1005748642.20883.comp.lang.ada@ada.eu.org> (raw)
In-Reply-To: <slrn9v4uqg.h34.randhol+abuse@kiuk0156.chembio.ntnu.no>
--On Mittwoch, November 14, 2001 13:03:19 +0000 Preben Randhol
<randhol+abuse@pvv.org> wrote:
...
> if Method = Setup.Method_Enum_Type'(Spell) then
^ ^^^^^
These are two items which are defined in Setup and need a
"Setup." too, if you want to avoid using "use". This leads to:
...
if Setup."=" (Method, Setup.Method_Enum_Type'(Setup.Spell)) then
...
which can be simplified to:
...
if Setup."=" (Method, Setup.Spell) then
...
The ugly ´Setup."="´ can be avoided by a "use type" clause:
...
use type Setup.Method_Enum_Type;
Method : Setup.Method_Enum_Type := Setup.Get_Method;
begin
if Method = Setup.Spell then
...
Wilhelm
next prev parent reply other threads:[~2001-11-14 13:48 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <slrn9v4uqg.h34.randhol+abuse@kiuk0156.chembio.ntnu.n o>
2001-11-14 13:03 ` Problem with Enumaration and visibility Preben Randhol
2001-11-14 13:48 ` Wilhelm Spickermann [this message]
2001-11-14 16:55 ` Preben Randhol
2001-11-14 15:28 ` Ted Dennison
2001-11-14 16:32 ` Jeffrey Carter
2001-11-14 17:25 ` Preben Randhol
2001-11-14 15:37 Hambut Frumblefoot
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox