[Gambas-bugtracker] Bug #2668: Overwrite button in File Saving Dialogue is empty

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.2668&from=L21haW4-

Comment #11 by Gianluigi GRADASCHI:

For the time being you could make do with this:

Public Sub Button1_Click()

  'Store dialog
  
  System.Language = "en_US.UTF-8" ' <---!

  Dialog.Title = ("Storing Text ...")
  Dialog.Filter = ["*.txt", "Text File"]
  Dialog.Path = User.Home & "/"
  Dialog.AutoExt = True
  If Dialog.SaveFile() Then Return
  File.Save(Dialog.path, TextArea1.text)

End

Best Regards

Gianluigi