[Gambas-user] Question: Wait-sign on start

[Rolf-Werner Eilert]

Hi Gianluigi,

yes, I know this code, it's part of my Gambas programs.

But it has nothing to do with this problem here. Or do I oversee anything?

Regards
Rolf


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