Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/4-high/gel/applet/demo/distributed/dsa/launch_server.adb
+++ b/4-high/gel/applet/demo/distributed/dsa/launch_server.adb
@@ -0,0 +1,13 @@
+with
+     gel_demo_Server;
+
+
+procedure launch_Server
+--
+--  Launches the remote server.
+--
+is
+begin
+   gel_demo_Server.item.start;
+end launch_Server;
+