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: 103376,d3d7bd7817c8a667,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!fu-berlin.de!uni-berlin.de!not-for-mail
From: Matthias Teege <matthias-dated@mteege.de>
Newsgroups: comp.lang.ada
Subject: access check failed
Date: 3 Sep 2004 12:11:46 GMT
Sender: Matthias Teege <matthias@mut.mteege.de>
Message-ID: <2pr5c2Fmujq4U1@uni-berlin.de>
X-Trace: news.uni-berlin.de D1YphWPGwcg+94U5ZUCbngyxJeP7tuxIkkcax2bQirP9dGa1mV
X-Orig-Path: not-for-mail
User-Agent: tin/1.6.2-20030910 ("Pabbay") (UNIX) (FreeBSD/4.10-STABLE (i386))
Xref: g2news1.google.com comp.lang.ada:3287
Date: 2004-09-03T12:11:46+00:00
List-Id: <comp.lang.ada>

Moin,

I'm playing with gtk ada and try to integrate some code borrowd from
another gtkada project. The code push messages to the statusbar. It
looks like that:

procedure call_statusbar (text : in string)
is
     my_id   : context_ID := Get_Context_ID(Window1.statusbar1,"Hallo");
     message : message_ID;
begin
     message := Push(Window1.statusbar1,my_id,text);
end call_statusbar;

Now I try to use this procedure in callback procedure:

   procedure On_Combo5_Realize
     (Object  : access Gtk_Combo_Record'Class;
      Params  : Gtk.Arguments.Gtk_Args;
      Window1 : Window1_Access)
   is
      Combo_Items : String_List.Glist;
   begin
      Gadra.Fill_Combo(Window1.Connection.ALL, Combo_Items,"mdt","lnd");
      Combo.Set_Popdown_Strings (Window1.Combo5, Combo_Items);
      Free_String_List (Combo_Items);
      Call_Statusbar("Hello");
   end On_Combo5_Realize;

The code compiles but if I try to run it, it gives me

./window1

(window1:5678): Gtk-WARNING **: Invalid input string
*** NOTICE : WARNING:  there is no transaction in progress

raised CONSTRAINT_ERROR : window1_pkg.ads:142 access check failed

window1_pkg.ads:142 looks like that

....
      Label4 : Gtk_Label;
      Statusbar1 : Gtk_Statusbar;
      Connection : Connection_Access;
   end record;
   type Window1_Access is access all Window1_Record'Class;

   procedure Gtk_New (Window1 : out Window1_Access);
   procedure Initialize (Window1 : access Window1_Record'Class);

L142->   Window1 : Window1_Access;
end Window1_Pkg;

If I remove the call_statusbar call the programm runs. What is the
"access check" and why does it fail?

Thanks
Matthias

-- 
Matthias Teege -- http://www.mteege.de
make world not war