<div dir="ltr"><div dir="ltr">If you don't want to open a new instance of your project:<br><br>From a code by Jussi Lahtinen:<br>'-----------------------------------------------<br>Public Sub Form_Open()<br> <br>  Dim sOutput As String<br>  Dim s As String = Application.Name<br><br>  Exec ["pgrep", "-f", "-l", s] Wait To sOutput<br><br>  If Split(Trim$(sOutput), gb.NewLine).Count > 1 Then<br>    Me.Close<br>  Endif<br><br>End<br>'-------------------------------------------------------</div><div dir="ltr"><br></div><div dir="ltr">Another solution from this discussion on the Gambas-it forum [0]:</div><div dir="ltr"><br></div><div dir="ltr">'----------------------------------------------------------------------<br>' The gb.settings component must be activated<br>Private hSetting As Settings<br><br>Public Sub Form_Open()<br><br>  Dim iPid As Integer = Application.Id<br>  Dim sPid, sSysPid As String<br><br>  hSetting = New Settings(User.Home &/ "myapp.conf")<br>  If (hSetting["Application/pid", 0] = 0) Then<br>    ' this is the first execution<br>    hSetting["Application/pid"] = iPid<br>    hSetting.Save<br>  Else<br>    sPid = hSetting["Application/pid"]<br>    Shell "ps aux | grep " & sPid & "  | grep -wv grep | wc -l" Wait To sSysPid<br>    sSysPid = Replace(sSysPid, "\n", "")<br>    If (Val(sSysPid) > 0) Then<br>      Me.Close ' Application already active<br>    Else<br>      ' previous instance that probably has an abortion<br>      hSetting["Application/pid"] = iPid<br>      hSetting.Save<br>    Endif<br>  Endif<br><br>End<br>'------------------------------------------------------------<br>Regards<br>Gianluigi<br><br>[0] <a href="http://www.gambas-it.org/smf/index.php?topic=2056.0">http://www.gambas-it.org/smf/index.php?topic=2056.0</a><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Il giorno mar 19 feb 2019 alle ore 10:10 Rolf-Werner Eilert <<a href="mailto:rwe-sse@osnanet.de">rwe-sse@osnanet.de</a>> ha scritto:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Thank you Fabien,<br>
<br>
good idea, but it doesn't help here. It is the time from clicking the <br>
icon to starting the program which gets no indicator.<br>
<br>
Strangely, Mate seems to know that starting a binary needs some <br>
indication to the user like "This icon was clicked".<br>
<br>
When there is a Gambas app behind, it seems not to know. So there is no <br>
reaction when double-clicking the icon, and the user wonders "has my <br>
double-click been accepted, or is Mate still waiting for something?"<br>
<br>
Then, mostly, the program pops up and confirms that the double-click was <br>
seen. But prior to this, there is no loading indicator.<br>
<br>
I just found, the Gambas IDE itself doesn't have a starting indicator.<br>
<br>
Regards<br>
Rolf<br>
<br>
<br>
Am 13.02.19 um 05:24 schrieb Fabien Bodard:<br>
> Hi,<br>
> <br>
> At the start of your program do<br>
> <br>
> Inc application.Busy<br>
> <br>
> <br>
> Then when your application is loaded<br>
> For exemple at the end of form.open or form.show of your main form just do<br>
> <br>
> Dec Application.Busy<br>
> <br>
> When Application.Busy is >to 0 then then the wait cursor is displayed.<br>
> <br>
> This way allow to have imbricated call to the waiting state<br>
> <br>
> Regards,<br>
> <br>
> Fabien Bodard<br>
> <br>
> Le mar. 12 févr. 2019 18:37, Rolf-Werner Eilert <<a href="mailto:rwe-sse@osnanet.de" target="_blank">rwe-sse@osnanet.de</a> <br>
> <mailto:<a href="mailto:rwe-sse@osnanet.de" target="_blank">rwe-sse@osnanet.de</a>>> a écrit :<br>
> <br>
>     Under Ubuntu Mate I don't get a Wait mouse icon when I start a Gambas<br>
>     program. Sometimes I am too hasty and don't doubleclick at one spot, so<br>
>     it doesn't start the program. But sometimes it just starts a bit more<br>
>     slowly, so when I'm nervous I start it twice. You know what I mean... :)<br>
> <br>
>     Is it possible to get a Wait mouse icon on start, or is it a<br>
>     drawback of<br>
>     the interpreter which can't be changed?<br>
> <br>
>     I know KDE has an option to set a jumping mouse on any doubleclick of<br>
>     some icon on the desktop, but in Mate other programs (those which are<br>
>     binaries) have it too.<br>
> <br>
>     Regards<br>
>     Rolf<br>
> <br>
>     ----[ Gambas mailing-list is hosted by <a href="https://www.hostsharing.net" rel="noreferrer" target="_blank">https://www.hostsharing.net</a> ]----<br>
> <br>
> <br>
> <br>
> ----[ Gambas mailing-list is hosted by <a href="https://www.hostsharing.net" rel="noreferrer" target="_blank">https://www.hostsharing.net</a> ]----<br>
> <br>
<br>
<br>
----[ Gambas mailing-list is hosted by <a href="https://www.hostsharing.net" rel="noreferrer" target="_blank">https://www.hostsharing.net</a> ]----<br>
</blockquote></div>