[Gambas-user] Problem with EXEC and GB.Desktop

[Jussi Lahtinen]

Why not to loop until the task is completed?

ff = Timer

Do

  ww = Desktop.FindWindow("Shell Terminal")
  Wait 0.2

  If (Timer - ff) > 10 Then
    HandleTimeOutError()
    Return
  Endif

Loop Until ww.Count > 0



Jussi


On Wed, Nov 26, 2014 at 8:55 PM, T Lee Davidson <t.lee.davidson at ...626...>
wrote:

> On 11/26/2014 07:45 AM, Lewis Balentine wrote:
> > /' Gambas module file
> > ' uses:
> > '  gb
> > '  gb.desktop
> > '  gb.desktop.x11(automatically selected by gb.desktop)
> > '  gb.image(automatically selected by gb.desktop)
> > '  gb.qt4 (alternates are: gb.gtk, gb.gtk3, gb.gui)
> >
> > Public Sub Main()
> >     Dim S0, S1, S2 As String
> >     Dim ww As Integer[]
> >     Dim n, WinId As Integer
> >
> >     S0 = "/usr/bin/mate-terminal"
> >     S1 = "--title=" & Chr(34) & "Exec Terminal" & Chr(34)
> >     S2 = "DISPLAY=:0.0"
> >     Exec [S0, S1] With [S2]
> >     ' at list 0.25 second delay required between exec and
> Desktop.FindWindow
> >     ' may vary according to hardware
> >     Wait 2
> >     ww = Desktop.FindWindow("Shell Terminal")
> >     n = ww.Count - 1
> >     'WinId is the same as xwininfo id
> >     WinId = ww[n]
> >     WinId = ww[0]
> >     Desktop.ActiveWindow = WinId
> >     Desktop.SendKeys("ls -l \n")
> >     Quit
> > End
> >
> /----------------------------------------------------------------------------------------------------------/
> > /
> >
> > /With ALL component options ww.Count returns 0 although ww[0] holds a
> > valid ID.
> > With ALL component options *ww[0] *generates *“out of bounds” error*..
> > With gb.gui.opengl (select GTK+3) the program crashes at the first line
> > of code.
>
> I think maybe you are not waiting long enough. I have to "Wait 5" (on my
> admittedly slow system) to keep from getting the "out of bounds error".
> When I do that, all works just fine.
>
>
> --
> Lee
> __________
>
> "Artificial Intelligence is no match for natural stupidity."
>
>
> ------------------------------------------------------------------------------
> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
> with Interactivity, Sharing, Native Excel Exports, App Integration & more
> Get technology previously reserved for billion-dollar corporations, FREE
>
> http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>