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=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-7-bit
Path: 
 g2news2.google.com!news1.google.com!npeer01.iad.highwinds-media.com!feed-me.highwinds-media.com!cyclone01.ams2.highwinds-media.com!news.highwinds-media.com!npeersf02.ams.highwinds-media.com!newsfe24.ams2.POSTED!40385e62!not-for-mail
From: Per Sandberg <per.sandberg@bredband.net>
User-Agent: Thunderbird 2.0.0.21 (Windows/20090302)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: How can I loose the cmd window from my GtkAda app?
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>
In-Reply-To: <aicc25rzguxw.1rko6vjgr46re.dlg@40tude.net>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <klZNl.11576$hd4.3404@newsfe24.ams2>
X-Complaints-To: abuse@WWWSpace.NET
NNTP-Posting-Date: Mon, 11 May 2009 17:35:12 UTC
Date: Mon, 11 May 2009 18:41:08 +0200
Xref: g2news2.google.com comp.lang.ada:5770
Date: 2009-05-11T18:41:08+02:00
List-Id: <comp.lang.ada>

Agree on that so thats why i suggested the gpr file solution, and that 
one could be expanded a bit more according to the following schema.

project proj is

    type OS_Type is ("Linux","Windows_NT");
    OS  : OS_Type := external ("OS","Linux");
    ...
    ...
    package Linker is
       case OS is
          when "Linux" =>
             for Default_Switches ("Ada") use
               ("-L/usr/local/lib/",
                "-lps2000");
          when "Windows_NT" =>
             for Default_Switches ("Ada") use
               ("-LC:\Program Files\Pico Technology\PicoScope6",
                "-lps2000",
                "-mwindows");
       end case;
    end Linker;
end proj;

/That how far i got in windows/Linux Interoperability
/Per


Dmitry A. Kazakov wrote:
> On Mon, 11 May 2009 17:30:12 +0200, Per Sandberg wrote:
> 
>> Thar are two more ways:
>> * Add the following line to the source code of the main program:
>>       "pragma Linker_Options("-mwindows");
> 
> Hmm, I don't like this, because it makes code platform-dependent.
> 
>> * If using gnat project files, Updated package linker add one of the 
>> folowing depending in taste:
>>    package Linker is
> 
> Yes, however I would prefer to have it enforced by gtkada.gpr, rather than
> contaminating the application's gpr which with-es gtkada.gpr. Unfortunately
> I know no way to do this in a library project.
>