--
        declare
             Xterm_Id                    : Os_Lib.Process_Id;
           
            Xterm_Parameters            : Os_Lib.Argument_List_Access :=
              new Os_Lib.Argument_List ' (new String ' ("-e" ),
                                          new String ' ("/bin/bash" ),
                                          new String ' ("-c" ),
                                          new String ' ("/usr/bin/xborg " & Hostname.all & ' ' & Logname.all & ' ' & Password.all));
 
         begin
            Os_Lib.Normalize_arguments(Xterm_Parameters.all);
            Xterm_Id := Os_Lib.Non_Blocking_Spawn(Program_Name => Os_Lib.Normalize_Pathname("/usr/bin/xterm" ),
                                                  Args => Xterm_Parameters.all);
 
            delay 1.0;
         end;

Xterm_Parameters            : Os_Lib.Argument_List_Access :=
              new Os_Lib.Argument_List ' (new String ' ("-e" ),
                                          new String ' ("/bin/bash" ),
                                          new String ' ("-l" ),
                                          new String ' ("-c" ),
                                          new String ' ("""" ),
                                          new String ' (Xborg_Location),
                                          new String ' (Hostname.all),
                                          new String ' (Logname.all),
                                          new String ' (Password.all),
                                          new String ' ("""" ));