luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Try to handle when a project file has disappeared without being 
  noticed by the IDE.


git-svn-id: svn://localhost/gambas/trunk@4215 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-10-24 15:35:17 +00:00
parent 13e89c798a
commit 3cb1789157
4 changed files with 4859 additions and 5004 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
app/src/gambas3/.lang/.pot
View file

@ -344,7 +344,7 @@ msgstr ""
msgid "Data" msgid "Data"
msgstr "" msgstr ""
#: CRecentFile.class:69 FMain.class:535 #: CRecentFile.class:69 FMain.class:542
msgid "Today" msgid "Today"
msgstr "" msgstr ""
@ -711,7 +711,7 @@ msgstr ""
msgid "Fields" msgid "Fields"
msgstr "" msgstr ""
#: FConnectionEditor.form:213 FMain.class:1805 #: FConnectionEditor.form:213 FMain.class:1816
msgid "Add" msgid "Add"
msgstr "" msgstr ""
@ -2528,55 +2528,59 @@ msgstr ""
msgid "Cannot delete file or directory" msgid "Cannot delete file or directory"
msgstr "" msgstr ""
#: FMain.class:556 #: FMain.class:238
msgid "File or directory does not exist anymore."
msgstr ""
#: FMain.class:563
msgid "Sort history" msgid "Sort history"
msgstr "" msgstr ""
#: FMain.class:560 FOpenProject.form:111 FWelcome.form:35 #: FMain.class:567 FOpenProject.form:111 FWelcome.form:35
msgid "Sort by date" msgid "Sort by date"
msgstr "" msgstr ""
#: FMain.class:560 FOpenProject.form:120 FWelcome.form:42 #: FMain.class:567 FOpenProject.form:120 FWelcome.form:42
msgid "Sort by name" msgid "Sort by name"
msgstr "" msgstr ""
#: FMain.class:560 FOpenProject.form:128 FWelcome.form:48 #: FMain.class:567 FOpenProject.form:128 FWelcome.form:48
msgid "Sort by path" msgid "Sort by path"
msgstr "" msgstr ""
#: FMain.class:571 #: FMain.class:578
msgid "&Clear history" msgid "&Clear history"
msgstr "" msgstr ""
#: FMain.class:740 #: FMain.class:747
msgid "New folder" msgid "New folder"
msgstr "" msgstr ""
#: FMain.class:807 #: FMain.class:818
msgid "" msgid ""
"The GNU translation tools are not installed on your system.\n" "The GNU translation tools are not installed on your system.\n"
"\n" "\n"
"Please install them to be able to do the translation." "Please install them to be able to do the translation."
msgstr "" msgstr ""
#: FMain.class:1401 #: FMain.class:1412
msgid "Unable to drop file into the project." msgid "Unable to drop file into the project."
msgstr "" msgstr ""
#: FMain.class:1521 #: FMain.class:1532
msgid "" msgid ""
"All backup or generated files will be removed from the project directory." "All backup or generated files will be removed from the project directory."
msgstr "" msgstr ""
#: FMain.class:1521 #: FMain.class:1532
msgid "Clean" msgid "Clean"
msgstr "" msgstr ""
#: FMain.class:1703 #: FMain.class:1714
msgid "To show the menu bar again, hit the following keys:<p><b>&1</b>" msgid "To show the menu bar again, hit the following keys:<p><b>&1</b>"
msgstr "" msgstr ""
#: FMain.class:1805 #: FMain.class:1816
msgid "Do you really want to add this file to the repository?" msgid "Do you really want to add this file to the repository?"
msgstr "" msgstr ""

BIN
app/src/gambas3/.lang/fr.mo
View file

Binary file not shown.

9818
app/src/gambas3/.lang/fr.po
View file

File diff suppressed because it is too large Load diff

11
app/src/gambas3/.src/FMain.class
View file

@ -233,6 +233,13 @@ Public Sub tvwProject_Menu()
If $sKey = Project.KEY_CONNECTION Or If Project.IsConnectionPath($sKey) Then If $sKey = Project.KEY_CONNECTION Or If Project.IsConnectionPath($sKey) Then
mnuDatabase.Popup mnuDatabase.Popup
Else Else
If Left($sKey) <> "$" And If Not Exist($sKey) Then
Message.Warning($sKey & "\n\n" & ("File or directory does not exist anymore."))
Project.Refresh
Return
Endif
mnuPopup.Popup mnuPopup.Popup
Endif Endif
'mnuPopup.Enabled = FALSE 'mnuPopup.Enabled = FALSE
@ -758,6 +765,8 @@ Private Function CanEdit(sPath As String) As Boolean
If Left$(sPath) = "$" Then Return If Left$(sPath) = "$" Then Return
Return Not IsDir(sPath) Return Not IsDir(sPath)
Catch
End End
Private Function CanDelete(sPath As String) As Boolean Private Function CanDelete(sPath As String) As Boolean
@ -768,6 +777,8 @@ Private Function CanDelete(sPath As String) As Boolean
If Project.IsReadOnly(sPath) Then Return False If Project.IsReadOnly(sPath) Then Return False
If tvwProject[sPath].Count = 0 Then Return True If tvwProject[sPath].Count = 0 Then Return True
Catch
End End
Public Sub UpdateTranslate() Public Sub UpdateTranslate()