From 17fc590309cac5708ef1fa165baa407aa4fec6de Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Fri, 27 Jul 2007 11:47:07 +0000
Subject: [PATCH] Bugfix: If snippets list is active and a new snippet is
 saved, refresh the list.

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

diff --git a/source/childwin.pas b/source/childwin.pas
index 0c5b2e3a..0a0fadc7 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -4428,6 +4428,7 @@ procedure TMDIChild.btnQuerySaveSnippetClick(Sender: TObject);
 var
   snippetname : String;
   sfile       : Textfile;
+  mayChange   : Boolean;
 begin
   // Save snippet
   if InputQuery( 'Save snippet', 'Snippet name:', snippetname) then
@@ -4452,6 +4453,11 @@ begin
     end;
     CloseFile( sfile );
     FillPopupQueryLoad;
+    if tabsetQueryHelpers.TabIndex = 3 then begin
+      // SQL Snippets selected in query helper, refresh list
+      mayChange := True; // Unused; satisfies callee parameter collection which is probably dictated by tabset.
+      tabsetQueryHelpersChange(Sender, 3, mayChange);
+    end;
     Screen.Cursor := crDefault;
   end;
 end;