1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- See own_marshallers.ads for an explanation on this package.
--
-- This demonstrates how to use the new Marshallers we created.
with Own_Marshaller;
with Gtk.Tips_Query; use Gtk.Tips_Query;
procedure Specific_Tips is
Tips : Gtk_Tips_Query;
begin
-- Should create an application
-- Should also create Tips.
Own_Marshaller.Tips_Handlers.Connect
(Tips, "widget_entered",
Own_Marshaller.My_Tips_Marshaller_Pkg.To_Marshaller
(Own_Marshaller.My_Specific_Tips'Access));
end Specific_Tips;
|
