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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,dea3b09c039d0609,start
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!newsfeed.straub-nv.de!feeder.erje.net!news.doubleslash.org!open-news-network.org!news.teledata-fn.de!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Error converting from UTF8 to ISO-8859-1
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
References: <4a70669a$0$13417$703f8584@news.kpn.nl>
 <8isqph858n0s$.krle17w7i2z1$.dlg@40tude.net>
 <4a707cc8$0$10035$703f8584@news.kpn.nl>
 <1k50e917idq61$.1w6zcc9yrx5dh.dlg@40tude.net>
 <4a717cbf$0$31793$703f8584@news.kpn.nl>
Date: Thu, 30 Jul 2009 17:08:30 +0200
Message-ID: <i58mu1sn7qag.n2khre66reir$.dlg@40tude.net>
NNTP-Posting-Date: 30 Jul 2009 17:08:30 CEST
NNTP-Posting-Host: 59f71632.newsspool1.arcor-online.net
X-Trace: 
 DXC=fVgfXY2hC<THigV@eW57PQic==]BZ:af^4Fo<]lROoRQ^YC2XCjHcbYZ29Q9OdP3F[DNcfSJ;bb[UIRnRBaCd<M^<EFI?mA2<2^UiUW\IhJEFP
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:7448
Date: 2009-07-30T17:08:30+02:00
List-Id: <comp.lang.ada>

P.S.

When using GtkAda under GPS, always include gtkada.gpr into your project
file. In no case you should never ever use the Linker_Options pragma. A
project file could look like this:

with "gtkada.gpr";  -- Note this

project Escape is

   type Development_Type is ("Debug", "Release");
   Development : Development_Type := external ("Development", "Debug");

   type Legacy_Type is ("Ada95", "Ada2005");
   Legacy : Legacy_Type := external ("Legacy", "Ada2005");   

   for Main use ("escape.adb");

   package Binder is
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use ("-E");
         when "Release" =>
            for Default_Switches ("ada") use ();
      end case;
   end Binder;

   package Builder is
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use ("-g");
         when "Release" =>
            for Default_Switches ("ada") use ("-s");
      end case;
   end Builder;

   package Compiler is
      case Development is
         when "Debug" =>
            case Legacy is
               when "Ada2005" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-g", "-fstack-check",
"-gnat05");
               when "Ada95" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-g", "-fstack-check",
"-gnat95");
            end case;
         when "Release" =>
            case Legacy is
               when "Ada2005" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-O2", "-gnatn", "-gnat05");
               when "Ada95" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-O2", "-gnatn", "-gnat95");
            end case;
      end case;
   end Compiler;

   package Linker is -- Linker switches are here
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use Gtkada.Linker'Default_Switches
("ada") & "-g" & "-mwindows";
         when "Release" =>
            for Default_Switches ("ada") use Gtkada.Linker'Default_Switches
("ada") & "-O2" & "-mwindows";
      end case;
   end Linker;

end Escape;

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