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.5 required=5.0 tests=BAYES_00,STOX_REPLY_TYPE,
	TVD_FINGER_02 autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!bcyclone04.am1.xlned.com!bcyclone04.am1.xlned.com!newsfeed.xs4all.nl!newsfeed9.news.xs4all.nl!nzpost2.xs4all.net!news.kpn.nl!not-for-mail
From: "ldries46" <bertus.dries@planet.nl>
Newsgroups: comp.lang.ada
References: <575b0403$0$12046$e4fe514c@news.kpn.nl>
 <njf1ei$kpq$1@dont-email.me> <575bcceb$0$28281$e4fe514c@news.kpn.nl>
 <njhia6$6t5$1@dont-email.me> <575d15b6$0$28284$e4fe514c@news.kpn.nl>
 <njk52u$jmg$1@dont-email.me>
In-Reply-To: <njk52u$jmg$1@dont-email.me>
Subject: Re: GTk3 without the Gtkbuilder and Glad
Date: Mon, 13 Jun 2016 09:40:45 +0200
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="Windows-1252";
	reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 16.4.3528.331
X-MimeOLE: Produced By Microsoft MimeOLE V16.4.3528.331
Message-ID: <575e6384$0$12013$e4fe514c@news.kpn.nl>
NNTP-Posting-Host: 77.168.179.107
X-Trace: 1465803652 dreader34.news.xs4all.nl 12013 77.168.179.107:53894
X-Complaints-To: abuse@kpn.nl
X-Received-Bytes: 2003
X-Received-Body-CRC: 635679148
Xref: news.eternal-september.org comp.lang.ada:30706
Date: 2016-06-13T09:40:45+02:00
List-Id: <comp.lang.ada>

You are correct, this worked.
I thought that because Main_Window_Record was an instantation of 
Gtk_window_record that should also do the trick and was more clear for the 
reader.

"Jeffrey R. Carter"  schreef in bericht news:njk52u$jmg$1@dont-email.me...

On 06/12/2016 12:50 AM, ldries46 wrote:
>
> package Windows_Callback is new
>  Gtk.Handlers.Return_Callback (Main_Window_Record, boolean);
>
> Windows_Callback.Connect(MainWindow, "delete_event",
> 
> Windows_Callback.To_Marshaller(On_Window_Destroy'Access));
>
> function On_Window_Destroy (Object : access Gtk_Window_Record'Class;
>                            Event : Gdk.Event.Gdk_Event) return Boolean;

The only remaining difference I can see is that Mine_Detector instantiates
Return_Callback with Gtk_Window_Record, while you instantiate it with
Main_Window_Record.

-- 
Jeff Carter
"What I wouldn't give for a large sock with horse manure in it."
Annie Hall
42