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.david...@gmail.com>
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@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
------------------------------------------------------------------------------
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@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
