Re: The Gnoga project goals - Ada Advocay for Businesses

[David Botton <david@botton.com>]

Here is a simple and interesting example of how Gnoga is different than say writing web pages with say Ajax in AWS alone without Gnoga.

Gnoga is "live" not passive and stateless.

This is a task type that could be used any place in your code at all. Using Ada tasks, this will strobe the color of any HTML element on a page:

   task type Color_Me_Task (O : Gnoga.Gui.Element.Pointer_To_Element_Class) is
      entry start;
      entry stop;
   end Color_Me_Task;
   -- Strobe color Element O

   task body Color_Me_Task is
      type Colors is (red, green, blue, orange, black);

      Current_Color : Colors := Colors'First;
   begin
      accept start;

      loop
         begin
            if O.Valid then
               O.Color (Current_Color'Img);

               if Current_Color = Colors'Last then
                  Current_Color := Colors'First;
               else
                  Current_Color := Colors'Succ (Current_Color);
               end if;
            end if;
         end;
         select
            accept stop;
            exit;
         or
            delay 0.1;
         end select;
      end loop;
   end Color_Me_Task;