File fix-welcome-snow-tear.patch of Package gambas

diff -ruNp a/app/src/gambas3/.src/Welcome/CWelcome.class b/app/src/gambas3/.src/Welcome/CWelcome.class
--- a/app/src/gambas3/.src/Welcome/CWelcome.class
+++ b/app/src/gambas3/.src/Welcome/CWelcome.class
@@ -54,7 +54,7 @@ Public Sub _new(hDrawingArea As DrawingA
   $bTear = bHasTear
   
   dNow = Now
-  If dNow >= Date(Year(dNow), 12, 24) Or If dNow < Date(Year(Now), 1, 7) Then
+  If False Then
   
     $aImage = New Image[8]
     For I = 0 To $aImage.Max
diff -ruNp a/app/src/gambas3/.src/Welcome/FWelcome.class b/app/src/gambas3/.src/Welcome/FWelcome.class
--- a/app/src/gambas3/.src/Welcome/FWelcome.class
+++ b/app/src/gambas3/.src/Welcome/FWelcome.class
@@ -92,7 +92,7 @@ Public Sub Form_Open()
     Toggle(LIST_EXAMPLE)
   Endif
   
-  bHasTear = PlaySound()
+  bHasTear = False
   $hWelcome = New CWelcome(dwgWelcome, True, bHasTear, False)
   
   $hSoft.Fill