From e340d5271caee78f1bd3af583e6ea117850c9b15 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Thu, 23 Jul 2009 23:57:15 +0000 Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Clear database passwords when opening a new project. git-svn-id: svn://localhost/gambas/trunk@2157 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- app/src/gambas3/.src/Connection/MConnection.module | 8 ++++---- app/src/gambas3/.src/Project.module | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/app/src/gambas3/.src/Connection/MConnection.module b/app/src/gambas3/.src/Connection/MConnection.module index dadaa3587..87fe37d47 100644 --- a/app/src/gambas3/.src/Connection/MConnection.module +++ b/app/src/gambas3/.src/Connection/MConnection.module @@ -1,6 +1,6 @@ ' Gambas module file -Private $cPassword As New Collection +Public Password As New Collection Public Sub InitFrom(hConn As Connection, hConfig As Object, sName As String, Optional bWithDatabase As Boolean) @@ -25,11 +25,11 @@ Public Sub LoadPassword(sName As String, bDesktop As Boolean) As String Dim sPassword As String - sPassword = $cPassword[sName] + sPassword = Password[sName] If Not sPassword Then If bDesktop Then sPassword = Desktop.Passwords[Project.Name &/ sName] - $cPassword[sName] = sPassword + Password[sName] = sPassword Endif Endif @@ -39,7 +39,7 @@ End Public Sub SavePassword(sName As String, sPassword As String, bDesktop As Boolean) - $cPassword[sName] = sPassword + Password[sName] = sPassword If sPassword Then Desktop.Passwords[Project.Name &/ sName] = sPassword End diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module index f0d897f91..e5366b69f 100644 --- a/app/src/gambas3/.src/Project.module +++ b/app/src/gambas3/.src/Project.module @@ -366,6 +366,8 @@ Public Function Open(sDir As String) As Boolean Inc Project.TimeStamp + MConnection.Password.Clear + Refresh DefineStartup(Startup, True)