MediaView: Ensure that the internal media player is deleted with the control.

[GB.MEDIA.FORM]
* BUG: MediaView: Ensure that the internal media player is deleted with the control.

comp/src/gb.media.form/.component

 [Component]
 Key=gb.media.form
-Version=3.15.90
+Version=3.17.90
 Needs=Form
 Requires=gb.media

comp/src/gb.media.form/.project

@@ -2,13 +2,12 @@
 Title=gb.media.form
 Startup=FTest
 Icon=.hidden/control/mediaview.png
-Version=3.15.90
+Version=3.17.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui
 Component=gb.form
 Component=gb.media
-Environment="GB_GUI=gb.gtk3"
 TabSize=2
 Language=fr
 Type=Component

comp/src/gb.media.form/.src/FMediaPlayer.class

@@ -330,7 +330,8 @@ End
 
 Public Sub Form_Close()
 
-  Try $hPlayer.Stop
+  Try $hPlayer.Close()
+  $hPlayer = Null
 
 End
 

comp/src/gb.media.form/.src/FMediaPlayer.form

@@ -30,7 +30,7 @@
         MoveScaled(3,0,30,5)
         Background = Color.Black
         Foreground = Color.White
-        Mouse = Mouse.Pointing
+        Mouse = Cursor.Pointing
         Expand = True
       }
       { Panel4 Panel
@@ -41,7 +41,7 @@
       MoveScaled(29,44,3,1)
     }
     { panControl HBox
-      MoveScaled(0,48,57,4)
+      MoveScaled(1,50,56,4)
       { btnPlay ToolButton
         MoveScaled(0,0,4,4)
         Picture = Picture["icon:/small/play"]

comp/src/gb.media.form/.src/FTest.class

@@ -12,3 +12,9 @@ Static Public Sub _init()
   Application.Theme = "Gambas"
   
 End
+
+Public Sub Button2_Click()
+
+  MediaView1.Visible = Not MediaView1.Visible
+
+End

comp/src/gb.media.form/.src/FTest.form

@@ -8,13 +8,18 @@
   { MediaView1 MediaView
     MoveScaled(4,5,38,30)
     Expand = True
-    URL = "/home/benoit/Vidéos/vlc-record-2018-12-21.mp4"
+    URL = "/home/benoit/StopHatingRussians.mp4"
   }
   { HBox1 HBox
     MoveScaled(4,39,78,4)
+    Spacing = True
     { Button1 Button
       MoveScaled(5,0,16,4)
       Text = ("Volume")
     }
+    { Button2 Button
+      MoveScaled(23,0,16,4)
+      Text = ("Hide")
+    }
   }
 }