How can I loose the cmd window from my GtkAda app?

How can I loose the cmd window from my GtkAda app?

[daniel.wengelin]

My GtkAda app opens a cmd window that I cannot get rid of. I tried to
search for a solution in the users guide and using google, but without
success. Any ideas?

I use GNAT GPL 2008 on Win XP.

/D

Re: How can I loose the cmd window from my GtkAda app?

[Dmitry A. Kazakov]

On Mon, 11 May 2009 08:19:16 -0700 (PDT), daniel.wengelin@home.se wrote:

> My GtkAda app opens a cmd window that I cannot get rid of. I tried to
> search for a solution in the users guide and using google, but without
> success. Any ideas?

You forgot to specify (-largs) -mwindows switch when linked your project
for Windows. See, for example here:

http://www.cs.fsu.edu/~baker/ada/gnat/html/gnat_ugn_31.html

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: How can I loose the cmd window from my GtkAda app?

[Per Sandberg]

Thar are two more ways:
* Add the following line to the source code of the main program:
      "pragma Linker_Options("-mwindows");
* If using gnat project files, Updated package linker add one of the 
folowing depending in taste:
   package Linker is
    ...
    ...
    for Switches("main.adb") use Linker'Default_Switches("Ada")
       & ("-mwindows");
   end Linker;

   package Linker is
    ...
    ...
    for Default_Switches("Ada") use Linker'Default_Switches("Ada")
       & ("-mwindows");
   end Linker;

   package Linker is
    ...
    ...
    for Default_Switches("Ada") use ("-mwindows");
   end Linker;
/Per


Dmitry A. Kazakov wrote:
> On Mon, 11 May 2009 08:19:16 -0700 (PDT), daniel.wengelin@home.se wrote:
> 
>> My GtkAda app opens a cmd window that I cannot get rid of. I tried to
>> search for a solution in the users guide and using google, but without
>> success. Any ideas?
> 
> You forgot to specify (-largs) -mwindows switch when linked your project
> for Windows. See, for example here:
> 
> http://www.cs.fsu.edu/~baker/ada/gnat/html/gnat_ugn_31.html
> 

Re: How can I loose the cmd window from my GtkAda app?

[Dmitry A. Kazakov]

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.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: How can I loose the cmd window from my GtkAda app?

[Per Sandberg]

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.
> 

Re: How can I loose the cmd window from my GtkAda app?

[sjw]

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

> 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.

I've provided strings in library projects ...

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

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

with "tash_options";
project Tash is
   ...
   Linker_Options   := 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 ..)

Re: How can I loose the cmd window from my GtkAda app?

[Dmitry A. Kazakov]

On Mon, 11 May 2009 14:36:16 -0700 (PDT), sjw wrote:

> On May 11, 5:40�pm, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
> wrote:
> 
>> 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.
> 
> I've provided strings in library projects ...
> 
> project Tash_Options is
>    ......
>    Library_Options :=
>      (
>       "-L/usr/lib",
>       "-ltk8.4",
>       "-ltcl8.4"
>      );
> 
>     Linker_Options := ("-ltash") & Library_Options;
> end Pash_Options;
> 
> with "tash_options";
> project Tash is
>    ...
>    Linker_Options   := 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 ..)

You can also rename Linker package:

   package Linker renames Parent_Project.Linker;

But in general I have a big question to the design of the GPR language. In
my view all packages of all parents projects should to be [multiple]
inherited by the child project, with an option to explicitly override them.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: How can I loose the cmd window from my GtkAda app?

[Jean-Pierre Rosen]

Dmitry A. Kazakov a �crit :
> 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.
> 
I don't think it would be a good idea, because sometimes you do want
that window (to get simple traces with Text_IO for example). And (AFAIK)
 there is no option to cancel a -mwindows option.

-- 
---------------------------------------------------------
           J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr

Re: How can I loose the cmd window from my GtkAda app?

[Dmitry A. Kazakov]

On Tue, 12 May 2009 10:13:04 +0200, Jean-Pierre Rosen wrote:

> Dmitry A. Kazakov a �crit :
>> 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.
>> 
> I don't think it would be a good idea, because sometimes you do want
> that window (to get simple traces with Text_IO for example). And (AFAIK)
> there is no option to cancel a -mwindows option.

Using standard output is kind of "erroneous" in gtkada applications. Under
Windows it will most likely crash the application (due to Use_Error, I
guess).

For tracing I am using a GTK window, which is much simpler than text
tracing. It also allows to stop the application at the tracing point, catch
GTK/Glib errors with stack backtracing etc.

BTW, when running under GPS, output to the standard output works even with
-mwindows.

But the point was that -mwindows is just one example of what a library
project could like to pass to the clients.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: How can I loose the cmd window from my GtkAda app?

[Jack Mitchell]

As something of a newby, I added the -nwindows option only on the 
production builds (I have a debug package which writes to file and to 
the console if stdout is open)

E.G.

    package Linker is
       ...........
       case Mode is
          when "Debug" =>

          when "Production" =>
             for Default_Switches ("ada") use Linker'Default_Switches 
("-mwindows");
       end case;
    end Linker;





In message <w9hl8hae9g57$.ry62m3ommmaw.dlg@40tude.net>, Dmitry A. 
Kazakov <mailbox@dmitry-kazakov.de> writes
>On Tue, 12 May 2009 10:13:04 +0200, Jean-Pierre Rosen wrote:
>
>> Dmitry A. Kazakov a �crit :
>>> 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.
>>>
>> I don't think it would be a good idea, because sometimes you do want
>> that window (to get simple traces with Text_IO for example). And (AFAIK)
>> there is no option to cancel a -mwindows option.
>
>Using standard output is kind of "erroneous" in gtkada applications. Under
>Windows it will most likely crash the application (due to Use_Error, I
>guess).
>
>For tracing I am using a GTK window, which is much simpler than text
>tracing. It also allows to stop the application at the tracing point, catch
>GTK/Glib errors with stack backtracing etc.
>
>BTW, when running under GPS, output to the standard output works even with
>-mwindows.
>
>But the point was that -mwindows is just one example of what a library
>project could like to pass to the clients.
>

-- 
Jack Mitchell