From ae0ec2fe7178f1378f1588a4ef598b8aeb5b5631 Mon Sep 17 00:00:00 2001
From: Joost Verburg <joostverburg@users.sourceforge.net>
Date: Wed, 30 Apr 2008 16:06:10 +0000
Subject: [PATCH] don't change folder when cancel button is pressed

git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@24564 a592a061-630c-0410-9148-cb99ea01b6c8
---
 .../packaging/installer/gui/external.nsh      | 22 ++++++++++++-------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/development/Win32/packaging/installer/gui/external.nsh b/development/Win32/packaging/installer/gui/external.nsh
index 7c6aee5357..486eb07e61 100644
--- a/development/Win32/packaging/installer/gui/external.nsh
+++ b/development/Win32/packaging/installer/gui/external.nsh
@@ -13,7 +13,8 @@ Var ExternalPage.Info
 Var ExternalPage.Setup
 Var ExternalPage.Existing
 Var ExternalPage.Folder
-Var ExternalPage.Folder_Text
+Var ExternalPage.Folder.Text
+Var ExternalPage.Folder.Return
 Var ExternalPage.FolderBrowse
 Var ExternalPage.FolderInfo
 Var ExternalPage.NoInstall
@@ -159,16 +160,16 @@ Var ComponentSize
   
     # Update location of component
     
-    ${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder_Text
+    ${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder.Text
     
     # Verify whether the path exists
     
-    ${IfNot} ${FileExists} "$ExternalPage.Folder_Text\${BIN_${COMPONENT}}"
+    ${IfNot} ${FileExists} "$ExternalPage.Folder.Text\${BIN_${COMPONENT}}"
       MessageBox MB_OK|MB_ICONEXCLAMATION $(TEXT_EXTERNAL_${COMPONENT}_NOTFOUND)
       Abort # Return to allow the user to correct the location
     ${EndIf}
     
-    StrCpy $Path${COMPONENT} $ExternalPage.Folder_Text
+    StrCpy $Path${COMPONENT} $ExternalPage.Folder.Text
   
   ${EndIf}
   
@@ -198,12 +199,17 @@ Function ExternalFolderBrowseClick
   # Browse button clicked
   
   # Get current folder to set as default
-  ${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder_Text
+  ${NSD_GetText} $ExternalPage.Folder $ExternalPage.Folder.Text
   
   # Browse for new folder
-  nsDialogs::SelectFolderDialog /NOUNLOAD "" $ExternalPage.Folder_Text
-  Pop $ExternalPage.Folder_Text
-  ${NSD_SetText} $ExternalPage.Folder $ExternalPage.Folder_Text
+  nsDialogs::SelectFolderDialog /NOUNLOAD "" $ExternalPage.Folder.Text
+  Pop $ExternalPage.Folder.Return
+  
+  ${If} $ExternalPage.Folder.Return != error
+    StrCpy $ExternalPage.Folder.Text $ExternalPage.Folder.Return
+  ${EndIf}
+  
+  ${NSD_SetText} $ExternalPage.Folder $ExternalPage.Folder.Text
 
 FunctionEnd
 
-- 
2.39.5