gel.demo: Use 'gel_sdl'.

4-high/gel/applet/demo/distributed/gel_demo_client.adb

@@ -3,10 +3,12 @@ with
      gel_demo_Server,
 
      gel.Applet.client_World,
-
+     gel.Window.setup,
      gel.Forge,
      gel.Camera,
 
+     openGL.Light,
+
      ada.Calendar,
      ada.Text_IO,
      ada.Exceptions;
@@ -40,6 +42,17 @@ is
       the_Applet.client_Camera.Site_is ([0.0, 0.0, 20.0]);
       the_Applet.enable_simple_Dolly (1);
 
+
+      -- Set the lights position.
+      --
+      declare
+         Light : openGL.Light.item := the_Applet.Renderer.new_Light;
+      begin
+         Light.Site_is ([0.0, -1000.0, 0.0]);
+         the_Applet.Renderer.set (Light);
+      end;
+
+
       next_render_Time := ada.Calendar.clock;
 
       --  Begin processing.