Code cleanup, slight API improvement

1 files changed, 3 insertions, 3 deletions

diff --git a/example/aao_example.adb b/example/aao_example.adb
index fd32e38..6851f54 100644
--- a/example/aao_example.adb
+++ b/example/aao_example.adb
@@ -46,7 +46,7 @@ begin
     --  Open driver
 
     begin
-        My_Device := Libao.Open_Live
+        My_Device.Open_Live
            (Driver_ID => Default_Driver,
             Format    => My_Format,
             Options   => Libao.Empty_Options);
@@ -80,7 +80,7 @@ begin
             Buffer (4 * I + 4) := Character'Val ((Sample / 256) and 16#FF#);
         end loop;
 
-        Libao.Play (My_Device, Buffer);
+        My_Device.Play (Buffer);
     end;
 
 
@@ -89,7 +89,7 @@ begin
     --  Technically the binding will take care of closing open devices at the
     --  end of runtime, but it is always good practice to close them anyway.
 
-    Libao.Close (My_Device);
+    My_Device.Close;
 
 
 end AAO_Example;