[Gambas-user] R: My programm name of process

[Ru Vuott]

Another possibility with "xprop" and DesktopWindows class.
It need to activate gb.desktop.

***************************

Private i As Integer


Public Sub Form_Open()  
 
Dim pr As Process  
Dim ss, x As New String[]  
Dim s, y As String  
Dim j As Byte  
 
 pr = Shell "xprop | grep -i window" For Read  
  
 
 While Not Eof(pr)  
   Input #pr, s  
   If s < Chr(40) Then Continue  
   ss.Add(s)  
 Wend  
 
 
For j = 0 To ss.Max  
    
  If ss[j] = "_NET_WM_USER_TIME_WINDOW(WINDOW):" Then  

    x = Split(ss[j + 3], "x")  
    y = Right(ss[j + 7], 2)  

    i = Val("&" & x[1]) - Val("&" & y)  
  Endif  
    
Next  
 
End
 
 
Public Sub Button1_Click()  
 
Dim dw As DesktopWindow  
 
 
  dw = New DesktopWindow(i)  
 
' it closes the windows:
   dw.Close
 
End

******************************++


It works for me !

bye
vuott






> > It seems to me the problem was: e.g. I have 3 running
> gambas program:
> >
> > a.gambas
> > b.gambas
> > c.gambas
> >
> > Their process name in (/proc/pid_num/comm) is same. But
> I can identify
> > them via "/proc/pid_num/cmdline" and so identify easly
> the PID.
> >
> >
> > BUT if the case is:
> >
> > a.gambas
> > a.gambas
> > a.gambas
> >
> > ....this is - in my opinion - another problem:
> difficult.
> >
> > bye
> >
> >
> >
> ------------------------------------------------------------------------------
> > Don't let slow site performance ruin your business.
> Deploy New Relic APM
> > Deploy New Relic app performance management and know
> exactly
> > what is happening inside your Ruby, Python, PHP, Java,
> and .NET app
> > Try New Relic at no cost today and get our sweet Data
> Nerd shirt too!
> > http://p.sf.net/sfu/newrelic-dev2dev
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> ------------------------------------------------------------------------------
> Don't let slow site performance ruin your business. Deploy
> New Relic APM
> Deploy New Relic app performance management and know
> exactly
> what is happening inside your Ruby, Python, PHP, Java, and
> .NET app
> Try New Relic at no cost today and get our sweet Data Nerd
> shirt too!
> http://p.sf.net/sfu/newrelic-dev2dev
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>