Software farm: Don't crash when installing an example if its symbolic link alread exists.

[DEVELOPMENT ENVIRONMENT]
* BUG: Software farm: Don't crash when installing an example if its symbolic link alread exists.
* BUG: Project tree: CTRL + double-click is now triggered only on source files.
This commit is contained in:
gambas 2018-05-16 19:00:22 +02:00
parent 64f20f041f
commit e9bc65686c
2 changed files with 5 additions and 2 deletions

View file

@ -146,6 +146,7 @@ Public Sub tvwProject_Activate()
Dim sMime As String
Dim hProgList As DesktopFile[]
Dim hProcess As Process
Dim sKeyClass As String
sKey = tvwProject.Key
@ -153,8 +154,9 @@ Public Sub tvwProject_Activate()
tvwProject[sKey].Expanded = True
If CanEdit(sKey) Then
If $bCtrl Then
If File.Ext(sKey) <> "module" Then
sKey = File.SetExt(sKey, "class")
If Project.IsSourcePath(sKey) And If File.Ext(sKey) <> "module" Then
sKeyClass = File.SetExt(sKey, "class")
If Project.IsSourcePath(sKeyClass) Then sKey = sKeyClass
Endif
Endif
Project.OpenFile(sKey,,, True)

View file

@ -442,6 +442,7 @@ Public Sub Install(Optional bJustDownload As Boolean) As String
If LCase(Vendor) <> "example" And If Tags.Exist("example", gb.IgnoreCase) Then
Try Mkdir File.SetName(sSrcDir, "example")
Try Kill File.SetName(sSrcDir, "example") &/ sName
Link ".." &/ File.Name(sSrcDir) &/ sName To File.SetName(sSrcDir, "example") &/ sName
Endif