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

Project tree: Fix behaviour of 'Open with' menu.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Project tree: Fix behaviour of 'Open with' menu.
This commit is contained in:
Benoît Minisini 2023-01-04 20:39:19 +01:00
parent 1fd1d16ec8
commit 8309139973
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/src/gambas3/.project
View file

@ -2,7 +2,7 @@
Title=Gambas 3 Title=Gambas 3
Startup=Project Startup=Project
Icon=img/logo/logo-ide.png Icon=img/logo/logo-ide.png
Version=3.17.90 Version=3.18.0
VersionFile=1 VersionFile=1
Component=gb.image Component=gb.image
Component=gb.gui Component=gb.gui

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

@ -579,7 +579,7 @@ Public Sub mnuPopup_Show()
If sMime Then If sMime Then
hProgList = DesktopFile.FromMime(sMime) hProgList = DesktopFile.FromMime(sMime)
If hProgList And If hProgList.Count Then If hProgList And If hProgList.Count Then
mnuEditWith.Visible = sMime mnuEditWith.Visible = True
mnuEditWith.Tag = hProgList mnuEditWith.Tag = hProgList
Endif Endif
Endif Endif
@ -2297,15 +2297,15 @@ End
Public Sub mnuEditWithProg_Click() Public Sub mnuEditWithProg_Click()
Dim sKey As String = Last.Parent.Tag
Dim hProcess As Process Dim hProcess As Process
Dim hDesktopFile As DesktopFile
Dim sPath As String
If sKey Then sPath = GetCurrent()
If CanEdit(sKey) Then If Not sPath Then Return
hProcess = Last.Tag.Run(sKey) hDesktopFile = Last.Tag
hProcess.Ignore = True hProcess = hDesktopFile.Run(sPath)
Endif hProcess.Ignore = True
Endif
End End