comp.lang.ada
 help / color / mirror / Atom feed
From: "Björn Lundin" <b.f.lundin@gmail.com>
Subject: Re: Amazon SQS (simple Queue system) binding ?
Date: Tue, 20 Jan 2015 13:04:48 +0100
Date: 2015-01-20T13:04:48+01:00	[thread overview]
Message-ID: <m9lg82$r2t$1@dont-email.me> (raw)
In-Reply-To: <m9l2u8$a4p$1@dont-email.me>

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


  reply	other threads:[~2015-01-20 12:04 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-01-19 17:02 Amazon SQS (simple Queue system) binding ? Björn Lundin
2015-01-19 22:06 ` David Botton
2015-01-20  8:17   ` Björn Lundin
2015-01-20 12:04     ` Björn Lundin [this message]
2015-01-20 19:34       ` David Botton
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox