From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,T_SCC_BODY_TEXT_LINE
	autolearn=ham autolearn_force=no version=3.4.6
Date: Wed, 28 Sep 2022 12:44:18 +0200
MIME-Version: 1.0
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101 Thunderbird/102.3.0
Newsgroups: comp.lang.ada
Content-Language: en-GB
From: ldries46 <bertus.dries@planet.nl>
Subject: variable text for button
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Message-ID: <nnd$1c56c8cc$422e5dd4@40cd86d884e1c860>
Organization: KPN B.V.
Path: eternal-september.org!reader01.eternal-september.org!2.eu.feeder.erje.net!feeder.erje.net!feeder1.feed.usenet.farm!feed.usenet.farm!feeder.usenetexpress.com!tr3.eu1.usenetexpress.com!94.232.112.245.MISMATCH!feed.abavia.com!abe005.abavia.com!abp002.abavia.com!news.kpn.nl!not-for-mail
Injection-Date: Wed, 28 Sep 2022 12:44:19 +0200
Injection-Info: news.kpn.nl; mail-complaints-to="abuse@kpn.com"
Xref: reader01.eternal-september.org comp.lang.ada:64446
List-Id: <comp.lang.ada>

I am using a   Gtk_Message Dialog in a surrounding in which I use 
strings in  variable languages. That means that I can switch languages 
by changing the variable lan, butfor the button I cannot find the 
parameter to switch the text.
I now use
MessageBox := Gtk_Message_Dialog_New(null,
1,
Message_Warning(lan),
Buttons_Close,
            Text(lan));
  MessageBox.Set_Title(Title(lan));

This gives a button with the Close text in the language of the operating 
system but I want:
Button_Text(lan) on the button
How can I do this?