2 files changed, 40 insertions, 11 deletions

diff --git a/scripts/install/opensim.tmux.conf b/scripts/install/opensim.tmux.conf
index c204c42..9cdda3f 100644
--- a/scripts/install/opensim.tmux.conf
+++ b/scripts/install/opensim.tmux.conf
@@ -16,6 +16,16 @@ unbind '"'
 bind | split-window -h
 bind - split-window -v
 
+# pane border
+set -g pane-border-status top
+#colors for pane borders
+set-window-option -g pane-border-style fg=black,bg=green
+set-window-option -g pane-active-border-style fg=black,bg=red
+set-window-option -g automatic-rename off
+set-window-option -g pane-border-format '[#{pane_index}:#{pane_title}]'
+
+# select-pane -t 1 -T "fancy pane title"
+# Note that running a program in that tab might override it - 1 mc [dvs1@Superbitch]:/media/DATA/home/dvs1
 # set-options -g global, -s server, -w window, otherwise a session option.
 #   -a appends a string to the existing option.
 #   -u unsets an option.
diff --git a/src/sledjchisl/sledjchisl.c b/src/sledjchisl/sledjchisl.c
index 0ea29a3..9297772 100644
--- a/src/sledjchisl/sledjchisl.c
+++ b/src/sledjchisl/sledjchisl.c
@@ -6949,19 +6949,27 @@ jit library is loaded or the JIT compiler will not be activated.
         {
             snprintf(toybuf, sizeof(toybuf), 
               "%s %s/%s new-session -d -s %s  -n '%s' \\; split-window -bhp 50 -t '%s:' bash -c '/usr/bin/valgrind --leak-check=full ./sledjchisl; cd %s; bash'",
+              "; select-pane -t 0 -T 'SledjChisl'; select-pane -t 1 -T 'ROBUST'",
             Tcmd, scRun, Tsocket, Tconsole, Ttab, Tconsole, scRoot);
         }
         else
         {
             // The sudo is only so that the session is owned by opensim, otherwise it's owned by whoever ran this script, which is a likely security hole.
             // After the session is created, we rely on the scRun directory to be group sticky, so that anyone in the opensim group can attach to the tmux socket.
-            snprintf(toybuf, sizeof(toybuf), 
+            snprintf(toybuf, sizeof(toybuf),
               "sudo -Hu %s %s %s/%s new-session -d -s %s  -n '%s' \\; split-window -bhp 50 -t '%s:' bash -c '/usr/bin/valgrind --leak-check=full ./sledjchisl; cd %s; bash'",
             scUser, Tcmd, scRun, Tsocket, Tconsole, Ttab, Tconsole, scRoot);
         }
         i = system(toybuf);
         if (!WIFEXITED(i))
           E("tmux new-session command failed!  %s", toybuf);
+        else
+        {
+          snprintf(toybuf, sizeof(toybuf), "%s %s/%s select-pane -t 0 -T 'SledjChisl'", Tcmd, scRun, Tsocket);
+          i = system(toybuf);
+          if (!WIFEXITED(i))
+            E("tmux select-pane command failed!");
+        }
       }
       // Join the session.
       memset(toybuf, 0, sizeof(toybuf));
@@ -7523,6 +7531,10 @@ T("ARGS - %i |%s|  |%s|", currentMode, toys.optargs[0],  target);
     c = xmprintf("mono Robust.exe -inidirectory=%s/config/ROBUST", scRoot);
     sendTmuxCmd(d, c);
     free(c);
+    c = xmprintf("%s %s/%s select-pane -t 1 -T 'ROBUST'", Tcmd, scRun, Tsocket);
+    i = system(c);
+    if (!WIFEXITED(i))
+      E("tmux select-pane command failed!");
     waitTmuxText(d, "INITIALIZATION COMPLETE FOR ROBUST");
     I("ROBUST is done starting up.");
 //    la = waitLoadAverage(la, loadAverageInc / 3.0, simTimeOut / 3);
@@ -7663,17 +7675,24 @@ sims =  -- Note these are .shini / tmux tab short names.
                         E("tmux new-window command failed!");
                       else
                       {
-                        if (0 == doWait)
-                        {
-                          memset(toybuf, 0, sizeof(toybuf));
-                          snprintf(toybuf, sizeof(toybuf), "INITIALIZATION COMPLETE FOR %s", name);
-                          waitTmuxText(nm, toybuf);
-                          I("%s is done starting up.", name);
-                          la = waitLoadAverage(la, loadAverageInc, simTimeOut);
-                        }
+                        snprintf(toybuf, sizeof(toybuf), "%s %s/%s select-pane -t %s.0 -T '%s'", Tcmd, scRun, Tsocket, nm, name);
+                        r = system(toybuf);
+                        if (!WIFEXITED(r))
+                          E("tmux select-pane command failed!");
                         else
-                          I("Not waiting for %s to finish starting up.", name);
-                        count++;
+                        {
+                          if (0 == doWait)
+                          {
+                            memset(toybuf, 0, sizeof(toybuf));
+                            snprintf(toybuf, sizeof(toybuf), "INITIALIZATION COMPLETE FOR %s", name);
+                            waitTmuxText(nm, toybuf);
+                            I("%s is done starting up.", name);
+                            la = waitLoadAverage(la, loadAverageInc, simTimeOut);
+                          }
+                          else
+                            I("Not waiting for %s to finish starting up.", name);
+                          count++;
+                        }
                       }
                       free(newPath);
                       free(path);