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,dea3b09c039d0609 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news2.google.com!news3.google.com!feeder.news-service.com!novso.com!213.75.85.109.MISMATCH!pfeed09.wxs.nl!newsfeed.kpn.net!pfeed14.wxs.nl!pfeed15.wxs.nl!not-for-mail From: "ldries46" Newsgroups: comp.lang.ada References: <4a70669a$0$13417$703f8584@news.kpn.nl> <8isqph858n0s$.krle17w7i2z1$.dlg@40tude.net> Subject: Re: Error converting from UTF8 to ISO-8859-1 Date: Wed, 29 Jul 2009 18:46:08 +0200 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.5512 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579 X-RFC2646: Format=Flowed; Original Message-ID: <4a707cc8$0$10035$703f8584@news.kpn.nl> NNTP-Posting-Host: 86.88.17.1 X-Trace: 1248885960 news.kpn.nl 10035 86.88.17.1:60949 X-Complaints-To: abuse@planet.nl Xref: g2news2.google.com comp.lang.ada:7412 Date: 2009-07-29T18:46:08+02:00 List-Id: Herewith I sent the complete code of the .adb file that I have made. I have seen before I tried to connect the buttons that the creation of the dialog works. The the close button (right above) destroys the dialog than. I use the Windows version of GPS 2009 x6-windows and GtkADA which came along with it in the beginning of july 2009. with Glib; use Glib; with Gtk; use Gtk; with Gdk.Types; use Gdk.Types; with Gtk.Widget; use Gtk.Widget; with Gtk.Window; use Gtk.Window; with Gtk.Enums; use Gtk.Enums; with Gtk.Button; use Gtk.Button; with Gtk.Color_Selection; use Gtk.Color_Selection; with Gtk.Handlers; use Gtk.Handlers; with Gtkada.Handlers; use Gtkada.Handlers; with Callbacks_Escape; use Callbacks_Escape; with Escape_Intl; use Escape_Intl; --with Escape_Pkg.Callbacks; use Escape_Pkg.Callbacks; package body Wall_Color_Pkg is package Button_Callback is new Gtk.Handlers.User_Callback (Gtk_Button_Record, Gtk_Window); procedure On_WallFloorOK_Activate(Object : access GTK_Button_Record'Class) is begin null; end; procedure Gtk_New (Wall_Color : out Wall_Color_Access) is begin Wall_Color := new Wall_Color_Record; Wall_Color_Pkg.Initialize (Wall_Color); end Gtk_New; procedure Initialize (Wall_Color : access Wall_Color_Record'Class) is pragma Suppress (All_Checks); Pixmaps_Dir : constant String := "pixmaps/"; ColorSelection : Gtk_Color_Selection; OK : Gtk_Button; Cancel : Gtk_Button; Help : Gtk_Button; begin Gtk.Color_Selection_Dialog.Initialize (Wall_Color, -"Wall Color"); Set_Border_Width (Wall_Color, 5); Set_Title (Wall_Color, -"Wall Color"); Set_Position (Wall_Color, Win_Pos_None); Set_Modal (Wall_Color, False); Set_Resizable (Wall_Color, False); ColorSelection := Get_ColorSel (Wall_Color ); OK := Get_OK_Button (Wall_Color); Cancel := Get_Cancel_Button (Wall_Color); Help := Get_Help_Button (Wall_Color); Set_Current_Color( ColorSelection, Current_Color ); Button_CallBack.Connect(OK, "clicked", On_WallFloorOK_Activate'Access); end Initialize; procedure Set_Wall_Color( Red : in Guint16; Green : in Guint16; Blue : in Guint16 ) is begin Set_Rgb(Current_Color, Red, Green, Blue); end; end Wall_Color_Pkg; "Dmitry A. Kazakov" schreef in bericht news:8isqph858n0s$.krle17w7i2z1$.dlg@40tude.net... > On Wed, 29 Jul 2009 17:11:35 +0200, ldries46 wrote: > >> I suddenly got the error mentioned in the title. >> I am trying to connect a "clicked" signal from a button in a dialog to a >> routine that executes some function. The code I have so far for the >> Initialize routine of the dialog is: >> >> procedure Initialize (Wall_Color : access Wall_Color_Record'Class) is >> pragma Suppress (All_Checks); >> Pixmaps_Dir : constant String := "pixmaps/"; >> ColorSelection : Gtk_Color_Selection; >> OK : Gtk_Button; >> Cancel : Gtk_Button; >> Help : Gtk_Button; >> begin >> Gtk.Color_Selection_Dialog.Initialize (Wall_Color, -"Wall Color"); >> Set_Border_Width (Wall_Color, 5); >> Set_Title (Wall_Color, -"Wall Color"); >> Set_Position (Wall_Color, Win_Pos_None); >> Set_Modal (Wall_Color, False); >> Set_Resizable (Wall_Color, False); >> ColorSelection := Get_ColorSel (Wall_Color ); >> OK := Get_OK_Button (Wall_Color); >> Cancel := Get_Cancel_Button (Wall_Color); >> Help := Get_Help_Button (Wall_Color); >> Set_Current_Color( ColorSelection, Current_Color ); >> Button_CallBack.Connect(OK, "clicked", >> On_WallFloorOK_Activate'Access); >> end Initialize; >> When I outcomment the line Button.Connect etc. the package with this >> function compiles without errors. Once the line is also compiled I get >> the >> error when opened always on the lines 37:0, 38:0 and 39:0 with the >> descriprion Invalid byte sequence in conversion input. In this case these >> lines are: >> Help : Gtk_Button; >> begin >> Gtk.Color_Selection_Dialog.Initialize (Wall_Color, -"Wall Color"); >> but when I add multiple lines comments or code for instance on line 20 >> etc. >> the line nr's of the error stay the same 37, 38 and 39. >> I now cannot search further to solve my connect problem. > > You should post a complete code. > > Also never suppress checks, at least until production code. > > P.S. I remotely remember that in some version of GtkAda the color > selection > dialog didn't work, but I might be wrong. You could consider switching to > Gtk_Color_Selection. > > -- > Regards, > Dmitry A. Kazakov > http://www.dmitry-kazakov.de