Skip to content
Snippets Groups Projects
Commit 9ab1d8ea authored by gambas's avatar gambas
Browse files

Do not crash anymore if the current project is deleted by another process.

[DEVELOPMENT ENVIRONMENT]
* BUG: Do not crash anymore if the current project is deleted by another process.
* NEW: Add some characters to the special character insertion dialog.
parent b5966b2c
Branches
Tags
No related merge requests found
' Gambas class file
Private Const CHAR_LIST As String = "«»¡¿¶°§‸×÷…‰©®™†′″‴‒–—·•‣▪⁕←↑→↓↔↕↖↗↘↙↤↥↦↧↰↱↲↳↴↵↶↷⇄⇅⬅⬆➡⬇⬈⬉⬊⬋⬌⬍■□▲△▴▵▶▷▸▹▼▽▾▿◀◁◂◃►▻◄◅±≃≈≠≤≥⊂⊃⊄⊅∧∨∩∪∀∂∃∄∅∆∇∈∉∋∌∏∐∑∞ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρστυφχψωℂℍℕℙℚℝℤ⅒⅑⅛⅐⅙⅕¼⅓⅜⅖½⅗⅝⅔¾⅘⅚⅞⁰¹²³⁴⁵⁶⁷⁸⁹₀₁₂₃₄₅₆₇₈₉♭♮♯"
Private Const CHAR_LIST As String = "«»‘’“”‚„¡¿¶°§µ‸×÷…‰†′″‴©®™¢£¤¥€‒–—·•‣▪⁕◆◼←↑→↓↔↕↖↗↘↙↤↥↦↧↰↱↲↳↴↵↶↷⇄⇅⬅⬆➡⬇⬈⬉⬊⬋⬌⬍■□▲△●○▴▵▶▷▸▹▼▽▾▿◀◁◂◃►▻◄◅±≃≈≠≤≥⊂⊃⊄⊅∧∨∩∪∀∂∃∄∅∆∇∈∉∋∌∏∐∑∞ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρστυφχψωℂℍℕℙℚℝℤ⅒⅑⅛⅐⅙⅕¼⅓⅜⅖½⅗⅝⅔¾⅘⅚⅞⁰¹²³⁴⁵⁶⁷⁸⁹₀₁₂₃₄₅₆₇₈₉♭♮♯"
Static Public Char As String
......
......@@ -381,7 +381,11 @@ Public Sub mnuPopup_Show()
sCurrent = GetCurrent()
bCurrent = sCurrent
sRoot = GetRootKey($sKey)
If sCurrent Then bLink = Stat(sCurrent).Type = gb.Link
If sCurrent Then
Try bLink = Stat(sCurrent).Type = gb.Link
If Error Then Return
Endif
UpdateMenu
......
......@@ -286,6 +286,10 @@ Private Procedure AddDir(Optional sDir As String)
Repeat
sDir = cDir[0]
cDir.Remove(0)
If Not IsDir(sDir) Then Continue
aFile.Clear
'$bGetSource = FALSE
......@@ -312,8 +316,6 @@ Private Procedure AddDir(Optional sDir As String)
DoRefreshAfter
cDir.Remove(0)
Until cDir.Count = 0
End
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment