File: general_tips.adb

package info (click to toggle)
libgtkada 2.24.4dfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 12,208 kB
  • ctags: 1,676
  • sloc: ada: 119,686; ansic: 4,719; sh: 3,003; makefile: 690; xml: 338; perl: 70
file content (21 lines) | stat: -rw-r--r-- 498 bytes parent folder | download | duplicates (7) 
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 general form of handlers

with Own_Marshaller;
with Gtk.Tips_Query;    use Gtk.Tips_Query;

procedure General_Tips is
   Tips : Gtk_Tips_Query;
begin

   --  Should create an application
   --  Should also create Tips.

   --  Connect to the general handler
   Own_Marshaller.Tips_Handlers.Connect
     (Tips, "widget_entered",
      Own_Marshaller.My_General_Tips'Access);

end General_Tips;