From 1bfc14e70eb1c5384b9311e9b00ff90dec6c8a4d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 9 Jun 2009 16:49:42 +0000
Subject: [PATCH] IDE: options: save desktop settings: append default extension
 lds, bug #13934

git-svn-id: trunk@20554 -
---
 ide/frames/desktop_options.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ide/frames/desktop_options.pas b/ide/frames/desktop_options.pas
index 2046fbf022..e5d9b6edc7 100644
--- a/ide/frames/desktop_options.pas
+++ b/ide/frames/desktop_options.pas
@@ -240,6 +240,7 @@ procedure TDesktopOptionsFrame.SaveDesktopSettingsToFileButtonClick(Sender: TObj
 var
   AnEnvironmentOptions: TEnvironmentOptions;
   SaveDialog: TSaveDialog;
+  AFilename: String;
 begin
   //debugln('TEnvironmentOptionsDialog.SaveDesktopSettingsToFileButtonClick A');
   SaveDialog := TSaveDialog.Create(nil);
@@ -251,9 +252,12 @@ begin
            +'|'+dlgAllFiles+' ('+GetAllFilesMask+')|' + GetAllFilesMask;
       if SaveDialog.Execute then
       begin
+        AFilename:=SaveDialog.Filename;
+        if ExtractFileExt(AFilename)='' then
+          AFilename:=AFilename+'.lds';
         AnEnvironmentOptions := TEnvironmentOptions.Create;
         try
-          AnEnvironmentOptions.Filename := SaveDialog.Filename;
+          AnEnvironmentOptions.Filename := AFilename;
           DoSaveSettings(AnEnvironmentOptions);
           AnEnvironmentOptions.Save(true);
         finally