From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM,WEIRD_QUOTING autolearn=no autolearn_force=no
	version=3.4.4
Path: 
 border1.nntp.dca1.giganews.com!nntp.giganews.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!feeder.erje.net!eu.feeder.erje.net!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?B?QmrDtnJuIEx1bmRpbg==?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Amazon SQS (simple Queue system) binding ?
Date: Tue, 20 Jan 2015 13:04:48 +0100
Organization: A noiseless patient Spider
Message-ID: <m9lg82$r2t$1@dont-email.me>
References: <m9jd9o$kak$1@dont-email.me>
 <535abc60-916c-41d3-b38d-cb4a8cacafb4@googlegroups.com>
 <m9l2u8$a4p$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Tue, 20 Jan 2015 12:04:18 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="23e59b4906029a0ce22afc4c4b1f25ee";
 logging-data="27741"; mail-complaints-to="abuse@eternal-september.org";
 posting-account="U2FsdGVkX1+pzs3KD/hEHYOuW9fv+7h8"
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:31.0) Gecko/20100101 Icedove/31.2.0
In-Reply-To: <m9l2u8$a4p$1@dont-email.me>
Cancel-Lock: sha1:a0KV8qdxZzCNjz/UPR16250Kb8I=
Xref: number.nntp.giganews.com comp.lang.ada:191934
Date: 2015-01-20T13:04:48+01:00
List-Id: <comp.lang.ada>

On 2015-01-20 09:17, Björn Lundin wrote:
> On 2015-01-19 23:06, David Botton wrote:
>>> It looks fairly simple/straigh forward, but
>>> I thought I'd ask anyway.
>>
>> If it is a Gnoga app, you can easily interface with the Java Script API.
>>

Poking around in the source I notice in package body
Gnoga.Gui.Plugin.jQueryUI
that

   procedure Load_jQueryUI

does NOT change Delay_Count.


-----------------

   procedure Load_jQueryUI
     (Window : in out Gnoga.Gui.Window.Window_Type'Class)
   is
      Delay_Count : Natural := 0;
   begin
      Window.Document.Head_Element.jQuery_Execute
        ("append ('<link rel=""stylesheet"" " &
           "href=""//ajax.googleapis.com/ajax/libs/" &
           "jqueryui/1.11.2/themes/smoothness/jquery-ui.css"" />')");
      Window.Document.Head_Element.jQuery_Execute
        ("append ('<script src=""//ajax.googleapis.com/ajax/libs/" &
           "jqueryui/1.11.2/jquery-ui.min.js""></script>')");

      while
        Gnoga.Server.Connection.Execute_Script
          (Window.Connection_ID, "$.ui") = "undefined"
        or Delay_Count > 10
      loop
         delay 0.25;
      end loop;

      if Delay_Count > 10 then
         raise Failed_To_Load_jQueryUI;
      end if;
   end Load_jQueryUI;




-- 
--
Björn