[gtkada] Window reference.

[Pascal]

Hello.

I've built a simple window and few widgets with Glade then generated Ada code with gate tool.
From On_Button2_Clicked procedure (Window1_Pkg.Callbacks) I want to access to an other widget present in Window1_Record (Window1_Pkg), but the window referece is created locally in main procedure (Window1) without  the possibility to get it out.

So I've modified Gtk_New to store the reference and added a function Get_Window (Window1_Pkg) which return this reference.

Is it the good way to get it?
Or is there a more simple one?

See complete code in attached tgz file.

Thanks, Pascal.
http://blady.pagesperso-orange.fr



-------------- next part --------------
A non-text attachment was scrubbed...
Name: Essai1a.tgz
Type: application/octet-stream
Size: 2531 bytes
Desc: not available
Url : /pipermail/gtkada/attachments/20110511/acd44653/attachment.obj