Add initial prototype.

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

@@ -0,0 +1,14 @@
+with
+     gel_demo_Server;
+
+
+package body gel_demo_Services
+is
+
+   function World return gel.remote.World.view
+   is
+   begin
+      return gel_demo_Server.the_server_World.all'access;
+   end World;
+
+end gel_demo_Services;