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.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM, REPLYTO_WITHOUT_TO_CC,XPRIO autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,acfaafd7c7fc43e7,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-04-10 08:22:08 PST Path: supernews.google.com!sn-xit-03!supernews.com!news!news.he.net!newsxfer.visi.net!cpk-news-hub1.bbnplanet.com!news.gtei.net!news.tele.dk!148.122.208.68!news2.oke.nextra.no!nextra.com!news1.oke.nextra.no.POSTED!not-for-mail Reply-To: "Frank" From: "Frank" Newsgroups: comp.lang.ada Subject: GtkAda: Idle function X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.00.2615.200 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200 Message-ID: Date: Tue, 10 Apr 2001 17:20:26 +0200 NNTP-Posting-Host: 130.67.135.55 X-Complaints-To: news-abuse@nextra.no X-Trace: news1.oke.nextra.no 986916039 130.67.135.55 (Tue, 10 Apr 2001 17:20:39 MET DST) NNTP-Posting-Date: Tue, 10 Apr 2001 17:20:39 MET DST Organization: Nextra Public Access Xref: supernews.google.com comp.lang.ada:6712 Date: 2001-04-10T17:20:26+02:00 List-Id: Hi! I have tried to make an idle function, and add it ad an idle function in GtkAda. A get a error that is described in chapter 11.10 in Advanced Ada Programming(http://vaxxine.com/pegasoft/homes/11.html) something like: "access level can not be deeper that procedure" (or the other way around:-). As you see I have declared the idle function inside the main Ada-program, I guess that is the problem. The documentation says it must be declared as a global subprogram, does this mean that my function should be in a file on its own? If so how do I compile this toghether? Or...I'm I completely off target :-) (A very consentraded example would be nice if it is very different from my try) I have found a example in the GtkAda examples directory, but it is so complex that I find it hard to understand what is going on :-) Frank procedure Test --------- -- Idlefunksjon --- function MinIdle return Boolean is begin return TRUE; end MinIdle; .... ... Idle_Id : Idle_Handler_Id; ... begin .. .. Idle_Id := Idle_Add (MinIdle'Access); ... .. end