Add initial prototype.
This commit is contained in:
13
4-high/gel/applet/demo/distributed/dsa/launch_client.adb
Normal file
13
4-high/gel/applet/demo/distributed/dsa/launch_client.adb
Normal file
@@ -0,0 +1,13 @@
|
||||
with
|
||||
gel_demo_Client;
|
||||
|
||||
|
||||
procedure launch_Client
|
||||
--
|
||||
-- Launches the remote client.
|
||||
--
|
||||
is
|
||||
begin
|
||||
gel_demo_Client.item.start;
|
||||
end launch_Client;
|
||||
|
||||
Reference in New Issue
Block a user