Hi,
On Mon, 5 Dec 2011 11:17:30 +0000 (UTC)
Reto Buerki <
re...@codelabs.ch> wrote:
> I'm proud to announce the first release of D_Bus/Ada.
>
> The D_Bus/Ada library provides an Ada binding to the D-Bus message bus
> used for inter-process communication on most modern Linux desktop
> systems.
For those who are wondering what to do with this, here is an example:
http://iki.fi/tero.koskinen/dbus-ada/notify/
In summary:
Name_A : Arguments.Basic.String_Type := +"ada.notify";
Replaces_ID_A : Arguments.Basic.U_Int32_Type := +33;
App_Icon_A : Arguments.Basic.String_Type := +"";
Summary_A : Arguments.Basic.String_Type := +"Hello";
Body_A : Arguments.Basic.String_Type := +"Hello, World from Ada!";
...
begin
-- Arguments
Args.Append (Name_A);
...
Result := Connection.Call_Blocking
(Connection => Conn,
Destination => "org.freedesktop.Notifications",
Path => "/org/freedesktop/Notifications",
Iface => "org.freedesktop.Notifications",
Method => "Notify",
Args => Args);
After running the program, you should see a notification
with text "Hello, World from Ada!" on your GNOME/KDE desktop.
--
Tero Koskinen -
http://iki.fi/tero.koskinen/
PS. For some reason dbus-ada does not allow me to use/serialize
empty arrays, so I fill the arrays with dummy data in my code.