From 80496695c102dca207cd833f8d3be9c4c2a58ca7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 20 Aug 2007 21:28:33 +0000
Subject: [PATCH] Add some safety to the file-commands in popupQueryHelpers: -
 Create the snippets folder if it's not present and user clicks on "Explore
 .." - If no snippets exist, disable the menuitems "Insert at cursor", "Load"
 and "Delete"

---
 source/childwin.pas | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 90221957..37e8e4ff 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -5686,6 +5686,7 @@ procedure TMDIChild.tabsetQueryHelpersChange(Sender: TObject; NewTab: Integer;
   var AllowChange: Boolean);
 var
   i : Integer;
+  SnippetsAccessible : Boolean;
 begin
   lboxQueryHelpers.Items.BeginUpdate;
   lboxQueryHelpers.Items.Clear;
@@ -5732,11 +5733,12 @@ begin
     3: // SQL Snippets
     begin
       // State of items in popupmenu
-      menuDeleteSnippet.Enabled := True;
-      menuInsertSnippetAtCursor.Enabled := True;
-      menuLoadSnippet.Enabled := True;
-      menuExplore.Enabled := True;
       lboxQueryHelpers.Items := getFilesFromDir( DIRNAME_SNIPPETS, '*.sql', true );
+      SnippetsAccessible := lboxQueryHelpers.Items.Count > 0;
+      menuDeleteSnippet.Enabled := SnippetsAccessible;
+      menuInsertSnippetAtCursor.Enabled := SnippetsAccessible;
+      menuLoadSnippet.Enabled := SnippetsAccessible;
+      menuExplore.Enabled := True;
     end;
 
   end;
@@ -5926,11 +5928,24 @@ end;
 
 
 {**
-  Open snippets-directory in Explorer 
+  Open snippets-directory in Explorer
 }
 procedure TMDIChild.menuExploreClick(Sender: TObject);
 begin
-  ShellExec( '', DIRNAME_SNIPPETS );
+  // Normally the snippets folder is created at installation. But it sure
+  // can be the case that it has been deleted or that the application was
+  // not installed properly. Ask if we should create the folder now.
+  if DirectoryExists( DIRNAME_SNIPPETS ) then
+    ShellExec( '', DIRNAME_SNIPPETS )
+  else
+    if MessageDlg( 'Snippets folder does not exist: ' + DIRNAME_SNIPPETS + CRLF + CRLF + 'This folder is normally created when you install '+appname+'.' + CRLF + CRLF + 'Shall it be created now?',
+      mtWarning, [mbYes, mbNo], 0 ) = mrYes then
+    try
+      Screen.Cursor := crHourglass;
+      ForceDirectories( DIRNAME_SNIPPETS );
+    finally
+      Screen.Cursor := crDefault;
+    end;
 end;