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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,83b83c553c3b79cf X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-14 08:55:36 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!uninett.no!ntnu.no!not-for-mail From: Preben Randhol Newsgroups: comp.lang.ada Subject: Re: Problem with Enumaration and visibility Date: Wed, 14 Nov 2001 16:55:35 +0000 (UTC) Organization: Norwegian university of science and technology Message-ID: References: NNTP-Posting-Host: kiuk0156.chembio.ntnu.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: tyfon.itea.ntnu.no 1005756935 23847 129.241.83.82 (14 Nov 2001 16:55:35 GMT) X-Complaints-To: usenet@itea.ntnu.no NNTP-Posting-Date: Wed, 14 Nov 2001 16:55:35 +0000 (UTC) User-Agent: slrn/0.9.7.2 (Linux) Xref: archiver1.google.com comp.lang.ada:16519 Date: 2001-11-14T16:55:35+00:00 List-Id: On Wed, 14 Nov 2001 14:48:47 +0100, Wilhelm Spickermann wrote: > > > --On Mittwoch, November 14, 2001 13:03:19 +0000 Preben Randhol > 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 Thanks. I understand! Preben