diff --git a/src/gnoga-gui-element-multimedia.adb b/src/gnoga-gui-element-multimedia.adb
index 6ff3ade..f7b5399 100644
--- a/src/gnoga-gui-element-multimedia.adb
+++ b/src/gnoga-gui-element-multimedia.adb
@@ -75,7 +75,7 @@ package body Gnoga.Gui.Element.Multimedia is
    -- Media_Duration --
    --------------------
 
-   function Media_Duration (Media : Multimedia_Type) return Integer is
+   function Media_Duration (Media : Multimedia_Type) return Float is
    begin
       return Media.Property ("duration");
    end Media_Duration;
@@ -100,13 +100,13 @@ package body Gnoga.Gui.Element.Multimedia is
    --------------------
 
    procedure Media_Position (Media   : in out Multimedia_Type;
-                             Seconds : in     Integer)
+                             Seconds : in     Float)
    is
    begin
       Media.Property ("currentTime", Seconds);
    end Media_Position;
 
-   function Media_Position (Media : Multimedia_Type) return Integer is
+   function Media_Position (Media : Multimedia_Type) return Float is
    begin
       return Media.Property ("currentTime");
    end Media_Position;
@@ -178,7 +178,7 @@ package body Gnoga.Gui.Element.Multimedia is
 
    function Ready_To_Play (Media : Multimedia_Type) return Boolean is
    begin
-      return Media.Property ("readyState");
+      return Media.Property ("readyState") /= 0;
    end Ready_To_Play;
 
    -------------
diff --git a/src/gnoga-gui-element-multimedia.ads b/src/gnoga-gui-element-multimedia.ads
index 7bf09d3..0513726 100644
--- a/src/gnoga-gui-element-multimedia.ads
+++ b/src/gnoga-gui-element-multimedia.ads
@@ -53,7 +53,7 @@ package Gnoga.Gui.Element.Multimedia is
    procedure Loop_Media (Media : in out Multimedia_Type; Value : in Boolean);
    function Loop_Media (Media : Multimedia_Type) return Boolean;
 
-   function Media_Duration (Media : Multimedia_Type) return Integer;
+   function Media_Duration (Media : Multimedia_Type) return Float;
    --  Returns the duration of Media in seconds.
 
    procedure Media_Source (Media : in out Multimedia_Type; Source : in String);
@@ -61,8 +61,8 @@ package Gnoga.Gui.Element.Multimedia is
    --  Returns the URL of the current Media
 
    procedure Media_Position (Media   : in out Multimedia_Type;
-                             Seconds : in     Integer);
-   function Media_Position (Media : Multimedia_Type) return Integer;
+                             Seconds : in     Float);
+   function Media_Position (Media : Multimedia_Type) return Float;
    --  Position of Media in seconds
 
    procedure Muted (Media : in out Multimedia_Type; Value : in Boolean);