Fix bug #1030: When creating a Procedure Routine, Tree does not update to show it

This commit is contained in:
Ansgar Becker
2009-03-03 19:22:38 +00:00
parent 6d8834b540
commit 7789a1d2fe

View File

@ -451,6 +451,7 @@ begin
// Set editing name if create/alter query was successful
AlterRoutineName := editName.Text;
AlterRoutineType := ProcOrFunc;
Mainform.actRefresh.Execute;
Modified := False;
except
On E:Exception do begin