From baac81253b3cc2e3addbbe6e90ec2a7abb5d56fd Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 18 Jul 2023 01:47:26 +1200 Subject: Code cleanup, slight API improvement --- example/aao_example.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'example') 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; -- cgit