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

Start desktop portal automatically.

Browse Source 
[GB.DESKTOP]
* NEW: Start desktop portal automatically.
This commit is contained in:
Benoît Minisini 2023-05-17 10:16:30 +02:00
parent 9b7d44ce52
commit f1593e17f1
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
comp/src/gb.desktop/.src/DesktopPortal.module
View File

@ -16,6 +16,7 @@ Private $cResult As Collection
Public Sub _init()
Component.Load("gb.dbus")
DBus["org.freedesktop.DBus"]["/", "org.freedesktop.DBus"].StartServiceByName("org.freedesktop.portal.Desktop", 0)
End

5
comp/src/gb.desktop/.src/Main.module
View File

@ -171,7 +171,10 @@ End
Public Sub Main()
Desktop.SendMail(["benoit@minisini.fr"], ["bminisini@asap-info.com"], ["benoit.minisini@gambas-basic.org"], "Sujet", "Corps du mail", "~/adolf.png")
Dim hPict As Picture
'Desktop.SendMail(["benoit@minisini.fr"], ["bminisini@asap-info.com"], ["benoit.minisini@gambas-basic.org"], "Sujet", "Corps du mail", "~/adolf.png")
hPict = Desktop.Screenshot()
End