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=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.107.147.136 with SMTP id v130mr66766390iod.28.1470371141228;
        Thu, 04 Aug 2016 21:25:41 -0700 (PDT)
X-Received: by 10.157.48.52 with SMTP id d49mr1486772otc.17.1470371141201;
 Thu, 04 Aug 2016 21:25:41 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!f6no7450726ith.0!news-out.google.com!d130ni25058ith.0!nntp.google.com!f6no7450718ith.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 4 Aug 2016 21:25:40 -0700 (PDT)
In-Reply-To: <nnqdsh$kh8$1@gioia.aioe.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=109.252.108.74;
 posting-account=YB4WOgoAAABLG9D7qoJiPBc6EJSzsPDF
NNTP-Posting-Host: 109.252.108.74
References: <5f464ccd-c532-4b4d-8f45-9f29ba41a326@googlegroups.com>
 <nnqdsh$kh8$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1dde5cdf-f1a8-4e5d-8d7d-60c89c554f6a@googlegroups.com>
Subject: Re: Win32. Task or CreateThread
From: George J <ivanov_george@list.ru>
Injection-Date: Fri, 05 Aug 2016 04:25:41 +0000
Content-Type: text/plain; charset=UTF-8
Xref: news.eternal-september.org comp.lang.ada:31290
Date: 2016-08-04T21:25:40-07:00
List-Id: <comp.lang.ada>

> So if you want the task to report back to GTK in any way (e.g. by moving 
> the progress bar) you must do it by communicating with the task running 
> the main loop. You can find an example how do do this here:
> 
> http://www.dmitry-kazakov.de/ada/gtkada_contributions.htm#1.1
> .......
> 
> -- 
> Regards,
> Dmitry A. Kazakov
> http://www.dmitry-kazakov.de

Hi All! I have a question for Gtk.Main.Routers, that i can't understand.
I have next:

type My_Record is
record
.......
end record

type My_Record_Access is access all My_Record;

Test_Record_Access : My_Record_Access;

package Cb_Request is new Gtk.Main.Router.Generic_Callback_Request(User_Data => My_Record);

   task type My_Task is  -- works well
      entry Start;
   end My_Task;

   task body My_Task is
   begin
      accept Start;

      Cb_Request.Request(Some_Proc'Access,Test_Record_Access); -- all ok

   end My_Task;


But I need to send parameter to discriminant like this 
.. in some proc 
Some_Task.Start(Test_Record_Access)

and decl:

   task type My_Task is  -- works bad
      entry Start(Rec_Acc:My_Record_Access);
   end My_Task;

   task body My_Task is
   begin
      accept Start(Rec_Acc:My_Record_Access) do
         Cb_Request.Request(Some_Proc'Access,Rec_Acc); -- "freezed"
      end Start;
   end My_Task;


-----------
I've debugged code and found:
...Gtk.Main.Routers(448)

procedure Request (Data : in out Request_Data'Class) is
   begin
      if Main = Current_Task then
         Service (Data);
      elsif Main = Null_Task_ID then
         Log
         (  GtkAda_Contributions_Domain,
            Log_Level_Critical,
            "No main task active" & Where ("Request")
         );
         raise Program_Error;
      else
         Gateway.Request_Service (Data, Standard.True);--<<---STOPPED HERE!!!!
      end if;
   end Request;

So I can understand, why it happened?can smb help with this!Thanks!