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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,2e7f1638b206223
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!postnews.google.com!r36g2000vbr.googlegroups.com!not-for-mail
From: sjw <simon.j.wright@mac.com>
Newsgroups: comp.lang.ada
Subject: Re: How can I loose the cmd window from my GtkAda app?
Date: Mon, 11 May 2009 14:36:16 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <e4f80745-6139-48b3-bc11-ce2fd88d27cc@r36g2000vbr.googlegroups.com>
References: <b6522593-7df3-480d-a370-49984d4342ad@n8g2000vbb.googlegroups.com>
	<isocxvyolo5p.1glo86yanp2jd$.dlg@40tude.net>
 <PiYNl.11572$hd4.251@newsfe24.ams2>
	<aicc25rzguxw.1rko6vjgr46re.dlg@40tude.net>
NNTP-Posting-Host: 82.20.239.89
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1242077776 9807 127.0.0.1 (11 May 2009 21:36:16
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 11 May 2009 21:36:16 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: r36g2000vbr.googlegroups.com; posting-host=82.20.239.89;
	posting-account=_RXWmAoAAADQS3ojtLFDmTNJCT0N2R4U
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_6; en-us)
	AppleWebKit/525.27.1 (KHTML,
 like Gecko) Version/3.2.1 Safari/525.27.1,gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:5772
Date: 2009-05-11T14:36:16-07:00
List-Id: <comp.lang.ada>

On May 11, 5:40=A0pm, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:

> Yes, however I would prefer to have it enforced by gtkada.gpr, rather tha=
n
> contaminating the application's gpr which with-es gtkada.gpr. Unfortunate=
ly
> I know no way to do this in a library project.

I've provided strings in library projects ...

project Tash_Options is
   ......
   Library_Options :=3D
     (
      "-L/usr/lib",
      "-ltk8.4",
      "-ltcl8.4"
     );

    Linker_Options :=3D ("-ltash") & Library_Options;
end Pash_Options;

with "tash_options";
project Tash is
   ...
   Linker_Options   :=3D Tash_Options.Linker_Options;
   package Linker is
     for Default_Switches ("ada") use Linker_Options;
   end Linker;
   ...
end Tash;

after which you can get at the linker options with either

   Tash.Linker_Options

or

   Tash.Linker'Default_Switches ("ada")

(I don't remember why I supply both! must go to bed ..)