[Gambas-user] Dialog.SaveFile() and Dialog.Path problem

[Demosthenes Koptsis]

Good morning,

i have the next code:

------------------------------
Public Sub btnSaveFile_Click()

  Dialog.Filter = ["*.txt", "Text Files"]
  Dialog.Path = Application.Path
  If Dialog.SaveFile() Then Return
  File.Save(Dialog.Path, txtArea.Text)

Catch
  Message.Info(Error.Text)

End
-----------------------------

When the Save dialog shows up it does not have the correct Path as 
Dialog.Path = Application.Path

gambas3-svn4145
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Project141.tar.gz
Type: application/x-compressed-tar
Size: 6474 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20111005/b42d3f83/attachment.bin>