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:
parent
64f20f041f
commit
e9bc65686c
2 changed files with 5 additions and 2 deletions
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue